Descritiva - Bloco 2
2022-07-06
Separating Data
db_blocos <- db %>%
select("rh_age_read_br", "rh_read_b4_yng_br", "rh_read_since_yng_br", "rh_read_b4_old_br",
"rh_read_with_b4_old_br", "rh_readin_b4_old_br", "rh_read_since_old_br",
"rh_read_w_since_old_br", "rh_readin_since_old_br", "rh_read_time_b4_br",
"rh_read_time_since_br",
"hlr_books_b4_corrected",
"hlr_dbooks_b4_corrected",
"hlr_games_b4_corrected",
"hlr_dgames_b4_corrected",
"hlr_ad_books_b4_corrected",
"hlr_ad_dbooks_b4_corrected",
"hlr_ad_news_b4_corrected",
"hlr_books_since_corrected",
"hlr_dbooks_since_corrected",
"hlr_games_since_corrected",
"hlr_dgames_since_corrected",
"hlr_ad_books_since_corrected",
"hlr_ad_dbooks_since_corrected",
"hlr_ad_news_since_corrected",
"ea_read_b4_ALL_br",
"ea_indr_b4_ALL_br",
"ea_letter_b4_yng_br",
"ea_tv_b4_yng_br",
"ea_boardg_b4_yng_br",
"ea_vidg_b4_yng_br",
"ea_edapp_b4_yng_br",
"ea_read_since_yng_br",
"ea_indr_since_yng_br",
"ea_letter_since_yng_br",
"ea_tv_since_yng_br",
"ea_boardg_since_yng_br",
"ea_vidg_since_yng_br",
"ea_edapp_since_yng_br")
db_out_na <- db_blocos[rowSums(is.na(db_blocos)) < 1, ]
db_bloco_2 <- db_out_na %>%
select(
"hlr_books_b4_corrected",
"hlr_dbooks_b4_corrected",
"hlr_games_b4_corrected",
"hlr_dgames_b4_corrected",
"hlr_ad_books_b4_corrected",
"hlr_ad_dbooks_b4_corrected",
"hlr_ad_news_b4_corrected",
"hlr_books_since_corrected",
"hlr_dbooks_since_corrected",
"hlr_games_since_corrected",
"hlr_dgames_since_corrected",
"hlr_ad_books_since_corrected",
"hlr_ad_dbooks_since_corrected",
"hlr_ad_news_since_corrected"
)
db_bloco_2_pre <- db_bloco_2 %>%
select(
"hlr_books_b4_corrected",
"hlr_dbooks_b4_corrected",
"hlr_games_b4_corrected",
"hlr_dgames_b4_corrected",
"hlr_ad_books_b4_corrected",
"hlr_ad_dbooks_b4_corrected",
"hlr_ad_news_b4_corrected"
)
db_bloco_2_pos <- db_bloco_2 %>%
select(
"hlr_books_since_corrected",
"hlr_dbooks_since_corrected",
"hlr_games_since_corrected",
"hlr_dgames_since_corrected",
"hlr_ad_books_since_corrected",
"hlr_ad_dbooks_since_corrected",
"hlr_ad_news_since_corrected"
)Analise Fatorial
matcor <- cor(db_bloco_2)
print(matcor, digits = 2)## hlr_books_b4_corrected hlr_dbooks_b4_corrected
## hlr_books_b4_corrected 1.00 0.23
## hlr_dbooks_b4_corrected 0.23 1.00
## hlr_games_b4_corrected 0.52 0.34
## hlr_dgames_b4_corrected 0.28 0.50
## hlr_ad_books_b4_corrected 0.65 0.20
## hlr_ad_dbooks_b4_corrected 0.33 0.38
## hlr_ad_news_b4_corrected 0.16 0.18
## hlr_books_since_corrected 0.88 0.23
## hlr_dbooks_since_corrected 0.27 0.68
## hlr_games_since_corrected 0.45 0.30
## hlr_dgames_since_corrected 0.25 0.48
## hlr_ad_books_since_corrected 0.57 0.15
## hlr_ad_dbooks_since_corrected 0.31 0.38
## hlr_ad_news_since_corrected 0.09 0.17
## hlr_games_b4_corrected hlr_dgames_b4_corrected
## hlr_books_b4_corrected 0.520 0.28
## hlr_dbooks_b4_corrected 0.335 0.50
## hlr_games_b4_corrected 1.000 0.58
## hlr_dgames_b4_corrected 0.579 1.00
## hlr_ad_books_b4_corrected 0.415 0.23
## hlr_ad_dbooks_b4_corrected 0.291 0.35
## hlr_ad_news_b4_corrected 0.148 0.22
## hlr_books_since_corrected 0.400 0.15
## hlr_dbooks_since_corrected 0.278 0.36
## hlr_games_since_corrected 0.754 0.39
## hlr_dgames_since_corrected 0.452 0.66
## hlr_ad_books_since_corrected 0.332 0.11
## hlr_ad_dbooks_since_corrected 0.214 0.26
## hlr_ad_news_since_corrected 0.086 0.15
## hlr_ad_books_b4_corrected
## hlr_books_b4_corrected 0.65
## hlr_dbooks_b4_corrected 0.20
## hlr_games_b4_corrected 0.41
## hlr_dgames_b4_corrected 0.23
## hlr_ad_books_b4_corrected 1.00
## hlr_ad_dbooks_b4_corrected 0.46
## hlr_ad_news_b4_corrected 0.23
## hlr_books_since_corrected 0.61
## hlr_dbooks_since_corrected 0.22
## hlr_games_since_corrected 0.39
## hlr_dgames_since_corrected 0.22
## hlr_ad_books_since_corrected 0.90
## hlr_ad_dbooks_since_corrected 0.45
## hlr_ad_news_since_corrected 0.20
## hlr_ad_dbooks_b4_corrected
## hlr_books_b4_corrected 0.33
## hlr_dbooks_b4_corrected 0.38
## hlr_games_b4_corrected 0.29
## hlr_dgames_b4_corrected 0.35
## hlr_ad_books_b4_corrected 0.46
## hlr_ad_dbooks_b4_corrected 1.00
## hlr_ad_news_b4_corrected 0.38
## hlr_books_since_corrected 0.29
## hlr_dbooks_since_corrected 0.32
## hlr_games_since_corrected 0.25
## hlr_dgames_since_corrected 0.32
## hlr_ad_books_since_corrected 0.43
## hlr_ad_dbooks_since_corrected 0.82
## hlr_ad_news_since_corrected 0.32
## hlr_ad_news_b4_corrected
## hlr_books_b4_corrected 0.16
## hlr_dbooks_b4_corrected 0.18
## hlr_games_b4_corrected 0.15
## hlr_dgames_b4_corrected 0.22
## hlr_ad_books_b4_corrected 0.23
## hlr_ad_dbooks_b4_corrected 0.38
## hlr_ad_news_b4_corrected 1.00
## hlr_books_since_corrected 0.11
## hlr_dbooks_since_corrected 0.17
## hlr_games_since_corrected 0.12
## hlr_dgames_since_corrected 0.15
## hlr_ad_books_since_corrected 0.22
## hlr_ad_dbooks_since_corrected 0.28
## hlr_ad_news_since_corrected 0.79
## hlr_books_since_corrected
## hlr_books_b4_corrected 0.88
## hlr_dbooks_b4_corrected 0.23
## hlr_games_b4_corrected 0.40
## hlr_dgames_b4_corrected 0.15
## hlr_ad_books_b4_corrected 0.61
## hlr_ad_dbooks_b4_corrected 0.29
## hlr_ad_news_b4_corrected 0.11
## hlr_books_since_corrected 1.00
## hlr_dbooks_since_corrected 0.31
## hlr_games_since_corrected 0.52
## hlr_dgames_since_corrected 0.29
## hlr_ad_books_since_corrected 0.63
## hlr_ad_dbooks_since_corrected 0.34
## hlr_ad_news_since_corrected 0.11
## hlr_dbooks_since_corrected
## hlr_books_b4_corrected 0.27
## hlr_dbooks_b4_corrected 0.68
## hlr_games_b4_corrected 0.28
## hlr_dgames_b4_corrected 0.36
## hlr_ad_books_b4_corrected 0.22
## hlr_ad_dbooks_b4_corrected 0.32
## hlr_ad_news_b4_corrected 0.17
## hlr_books_since_corrected 0.31
## hlr_dbooks_since_corrected 1.00
## hlr_games_since_corrected 0.34
## hlr_dgames_since_corrected 0.54
## hlr_ad_books_since_corrected 0.21
## hlr_ad_dbooks_since_corrected 0.43
## hlr_ad_news_since_corrected 0.17
## hlr_games_since_corrected
## hlr_books_b4_corrected 0.449
## hlr_dbooks_b4_corrected 0.304
## hlr_games_b4_corrected 0.754
## hlr_dgames_b4_corrected 0.390
## hlr_ad_books_b4_corrected 0.390
## hlr_ad_dbooks_b4_corrected 0.246
## hlr_ad_news_b4_corrected 0.115
## hlr_books_since_corrected 0.522
## hlr_dbooks_since_corrected 0.337
## hlr_games_since_corrected 1.000
## hlr_dgames_since_corrected 0.593
## hlr_ad_books_since_corrected 0.436
## hlr_ad_dbooks_since_corrected 0.267
## hlr_ad_news_since_corrected 0.091
## hlr_dgames_since_corrected
## hlr_books_b4_corrected 0.25
## hlr_dbooks_b4_corrected 0.48
## hlr_games_b4_corrected 0.45
## hlr_dgames_b4_corrected 0.66
## hlr_ad_books_b4_corrected 0.22
## hlr_ad_dbooks_b4_corrected 0.32
## hlr_ad_news_b4_corrected 0.15
## hlr_books_since_corrected 0.29
## hlr_dbooks_since_corrected 0.54
## hlr_games_since_corrected 0.59
## hlr_dgames_since_corrected 1.00
## hlr_ad_books_since_corrected 0.24
## hlr_ad_dbooks_since_corrected 0.38
## hlr_ad_news_since_corrected 0.15
## hlr_ad_books_since_corrected
## hlr_books_b4_corrected 0.57
## hlr_dbooks_b4_corrected 0.15
## hlr_games_b4_corrected 0.33
## hlr_dgames_b4_corrected 0.11
## hlr_ad_books_b4_corrected 0.90
## hlr_ad_dbooks_b4_corrected 0.43
## hlr_ad_news_b4_corrected 0.22
## hlr_books_since_corrected 0.63
## hlr_dbooks_since_corrected 0.21
## hlr_games_since_corrected 0.44
## hlr_dgames_since_corrected 0.24
## hlr_ad_books_since_corrected 1.00
## hlr_ad_dbooks_since_corrected 0.46
## hlr_ad_news_since_corrected 0.20
## hlr_ad_dbooks_since_corrected
## hlr_books_b4_corrected 0.31
## hlr_dbooks_b4_corrected 0.38
## hlr_games_b4_corrected 0.21
## hlr_dgames_b4_corrected 0.26
## hlr_ad_books_b4_corrected 0.45
## hlr_ad_dbooks_b4_corrected 0.82
## hlr_ad_news_b4_corrected 0.28
## hlr_books_since_corrected 0.34
## hlr_dbooks_since_corrected 0.43
## hlr_games_since_corrected 0.27
## hlr_dgames_since_corrected 0.38
## hlr_ad_books_since_corrected 0.46
## hlr_ad_dbooks_since_corrected 1.00
## hlr_ad_news_since_corrected 0.33
## hlr_ad_news_since_corrected
## hlr_books_b4_corrected 0.090
## hlr_dbooks_b4_corrected 0.169
## hlr_games_b4_corrected 0.086
## hlr_dgames_b4_corrected 0.146
## hlr_ad_books_b4_corrected 0.199
## hlr_ad_dbooks_b4_corrected 0.324
## hlr_ad_news_b4_corrected 0.795
## hlr_books_since_corrected 0.106
## hlr_dbooks_since_corrected 0.170
## hlr_games_since_corrected 0.091
## hlr_dgames_since_corrected 0.151
## hlr_ad_books_since_corrected 0.203
## hlr_ad_dbooks_since_corrected 0.333
## hlr_ad_news_since_corrected 1.000corrplot(matcor, method="circle", type = "upper")
matcor_pre <- cor(db_bloco_2_pre)
print(matcor_pre, digits = 2)## hlr_books_b4_corrected hlr_dbooks_b4_corrected
## hlr_books_b4_corrected 1.00 0.23
## hlr_dbooks_b4_corrected 0.23 1.00
## hlr_games_b4_corrected 0.52 0.34
## hlr_dgames_b4_corrected 0.28 0.50
## hlr_ad_books_b4_corrected 0.65 0.20
## hlr_ad_dbooks_b4_corrected 0.33 0.38
## hlr_ad_news_b4_corrected 0.16 0.18
## hlr_games_b4_corrected hlr_dgames_b4_corrected
## hlr_books_b4_corrected 0.52 0.28
## hlr_dbooks_b4_corrected 0.34 0.50
## hlr_games_b4_corrected 1.00 0.58
## hlr_dgames_b4_corrected 0.58 1.00
## hlr_ad_books_b4_corrected 0.41 0.23
## hlr_ad_dbooks_b4_corrected 0.29 0.35
## hlr_ad_news_b4_corrected 0.15 0.22
## hlr_ad_books_b4_corrected hlr_ad_dbooks_b4_corrected
## hlr_books_b4_corrected 0.65 0.33
## hlr_dbooks_b4_corrected 0.20 0.38
## hlr_games_b4_corrected 0.41 0.29
## hlr_dgames_b4_corrected 0.23 0.35
## hlr_ad_books_b4_corrected 1.00 0.46
## hlr_ad_dbooks_b4_corrected 0.46 1.00
## hlr_ad_news_b4_corrected 0.23 0.38
## hlr_ad_news_b4_corrected
## hlr_books_b4_corrected 0.16
## hlr_dbooks_b4_corrected 0.18
## hlr_games_b4_corrected 0.15
## hlr_dgames_b4_corrected 0.22
## hlr_ad_books_b4_corrected 0.23
## hlr_ad_dbooks_b4_corrected 0.38
## hlr_ad_news_b4_corrected 1.00corrplot(matcor_pre, method="circle", type = "upper")
Multiple Correspondence Analysis
O MCA geralmente é usado para analisar um conjunto de dados de uma pesquisa. O objetivo é identificar:
- Um grupo de indivíduos com perfil semelhante em suas respostas às perguntas
- As associações entre categorias de variáveis
Calcular e visualizar a análise de correspondência múltipla no software R usando FactoMineR (para a análise) e factoextra (para visualização de dados) Revelar as variáveis mais importantes que mais contribuem para explicar as variações no conjunto de dados explicando como prever os resultados para indivíduos e variáveis suplementares. filtrar os resultados do MCA para manter apenas as variáveis que mais contribuíram.
library("FactoMineR")
library("factoextra")PRE-PANDEMIA
db_bloco_2_pref <- as.data.frame(lapply(db_bloco_2_pre, as.factor))summary(db_bloco_2_pref)## hlr_books_b4_corrected hlr_dbooks_b4_corrected hlr_games_b4_corrected
## 2 :240 0 :345 1 :404
## 1 :160 1 :195 2 :117
## 3 : 92 2 : 43 0 : 50
## 7 : 46 3 : 10 3 : 18
## 4 : 28 7 : 7 4 : 10
## 0 : 21 4 : 6 5 : 7
## (Other): 28 (Other): 9 (Other): 9
## hlr_dgames_b4_corrected hlr_ad_books_b4_corrected hlr_ad_dbooks_b4_corrected
## 1 :336 2 :181 0 :285
## 0 :172 1 :147 1 :179
## 2 : 74 3 : 77 2 : 80
## 3 : 19 7 : 67 3 : 28
## 7 : 5 4 : 61 7 : 16
## 4 : 4 0 : 39 4 : 13
## (Other): 5 (Other): 43 (Other): 14
## hlr_ad_news_b4_corrected
## 0:475
## 1:123
## 2: 9
## 3: 1
## 5: 2
## 6: 1
## 7: 4for (i in 1:7) {
plot(db_bloco_2_pref[,i], main=colnames(db_bloco_2_pref)[i],
ylab = "Count", col="steelblue", las = 2)
}
MCA com pacote FactoMineR
MCA(db_bloco_2_pref,ncp = 5, graph = TRUE) 
## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 7 variables
## *The results are available in the following objects:
##
## name description
## 1 "$eig" "eigenvalues"
## 2 "$var" "results for the variables"
## 3 "$var$coord" "coord. of the categories"
## 4 "$var$cos2" "cos2 for the categories"
## 5 "$var$contrib" "contributions of the categories"
## 6 "$var$v.test" "v-test for the categories"
## 7 "$ind" "results for the individuals"
## 8 "$ind$coord" "coord. for the individuals"
## 9 "$ind$cos2" "cos2 for the individuals"
## 10 "$ind$contrib" "contributions of the individuals"
## 11 "$call" "intermediate results"
## 12 "$call$marge.col" "weights of columns"
## 13 "$call$marge.li" "weights of rows"res.mca_pref <- MCA(db_bloco_2_pref, graph = FALSE)
print(res.mca_pref)## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 7 variables
## *The results are available in the following objects:
##
## name description
## 1 "$eig" "eigenvalues"
## 2 "$var" "results for the variables"
## 3 "$var$coord" "coord. of the categories"
## 4 "$var$cos2" "cos2 for the categories"
## 5 "$var$contrib" "contributions of the categories"
## 6 "$var$v.test" "v-test for the categories"
## 7 "$ind" "results for the individuals"
## 8 "$ind$coord" "coord. for the individuals"
## 9 "$ind$cos2" "cos2 for the individuals"
## 10 "$ind$contrib" "contributions of the individuals"
## 11 "$call" "intermediate results"
## 12 "$call$marge.col" "weights of columns"
## 13 "$call$marge.li" "weights of rows"#Visualização e interpretação Autovalores/variâncias retidos por cada dimensão (eixo)
eig.val_pref <- get_eigenvalue(res.mca_pref)
eig.val_pref## eigenvalue variance.percent cumulative.variance.percent
## Dim.1 0.47081167 6.8660036 6.866004
## Dim.2 0.34671215 5.0562189 11.922222
## Dim.3 0.30395824 4.4327243 16.354947
## Dim.4 0.27522050 4.0136322 20.368579
## Dim.5 0.26258653 3.8293869 24.197966
## Dim.6 0.24793842 3.6157686 27.813734
## Dim.7 0.24294446 3.5429401 31.356674
## Dim.8 0.21435872 3.1260646 34.482739
## Dim.9 0.21162663 3.0862217 37.568961
## Dim.10 0.20433798 2.9799289 40.548890
## Dim.11 0.20168201 2.9411960 43.490086
## Dim.12 0.19559529 2.8524313 46.342517
## Dim.13 0.19134784 2.7904894 49.133006
## Dim.14 0.17911062 2.6120299 51.745036
## Dim.15 0.17224543 2.5119125 54.256949
## Dim.16 0.16566982 2.4160183 56.672967
## Dim.17 0.15729265 2.2938511 58.966818
## Dim.18 0.15429354 2.2501142 61.216932
## Dim.19 0.14433373 2.1048669 63.321799
## Dim.20 0.14203594 2.0713574 65.393157
## Dim.21 0.13890796 2.0257411 67.418898
## Dim.22 0.13454501 1.9621147 69.381012
## Dim.23 0.12795270 1.8659769 71.246989
## Dim.24 0.12456549 1.8165800 73.063569
## Dim.25 0.12181382 1.7764515 74.840021
## Dim.26 0.12111314 1.7662333 76.606254
## Dim.27 0.11478088 1.6738879 78.280142
## Dim.28 0.10991455 1.6029205 79.883062
## Dim.29 0.10587962 1.5440778 81.427140
## Dim.30 0.10522216 1.5344898 82.961630
## Dim.31 0.10242769 1.4937371 84.455367
## Dim.32 0.09788949 1.4275551 85.882922
## Dim.33 0.09598304 1.3997527 87.282675
## Dim.34 0.08659478 1.2628405 88.545515
## Dim.35 0.07952474 1.1597358 89.705251
## Dim.36 0.07760186 1.1316938 90.836945
## Dim.37 0.07576833 1.1049548 91.941900
## Dim.38 0.07148477 1.0424863 92.984386
## Dim.39 0.06824590 0.9952527 93.979639
## Dim.40 0.06519654 0.9507829 94.930422
## Dim.41 0.05822760 0.8491525 95.779574
## Dim.42 0.05743007 0.8375219 96.617096
## Dim.43 0.05429165 0.7917533 97.408849
## Dim.44 0.05000685 0.7292665 98.138116
## Dim.45 0.03849127 0.5613311 98.699447
## Dim.46 0.03374657 0.4921374 99.191584
## Dim.47 0.02925845 0.4266857 99.618270
## Dim.48 0.02617577 0.3817299 100.000000Porcentagens de inércia explicadas por cada dimensão MCA
fviz_screeplot(res.mca_pref, addlabels = TRUE, ylim = c(0, 45))
Biplot de indivíduos e categorias de variáveis:
fviz_mca_biplot(res.mca_pref,
repel = TRUE, # Avoid text overlapping (slow if many point)
ggtheme = theme_minimal())## Warning: ggrepel: 583 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps## Warning: ggrepel: 36 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
#Gráfico de variáveis #Resultados Usada para extrair os resultados para categorias de variáveis. Esta função retorna uma lista contendo as coordenadas, o cos2 e a contribuição das categorias de variáveis:
var_pref <- get_mca_var(res.mca_pref)
var_pref## Multiple Correspondence Analysis Results for variables
## ===================================================
## Name Description
## 1 "$coord" "Coordinates for categories"
## 2 "$cos2" "Cos2 for categories"
## 3 "$contrib" "contributions of categories"# Coordinates
var_pref$coord## Dim 1 Dim 2 Dim 3 Dim 4
## hlr_books_b4_corrected_0 -0.72846403 -1.88687148 -1.505528e-01 0.656276317
## hlr_books_b4_corrected_1 -0.42816860 -0.35170016 -6.962279e-02 0.200974851
## hlr_books_b4_corrected_2 -0.23851182 0.17912482 1.519757e-01 -0.087915058
## hlr_books_b4_corrected_3 -0.12331746 0.73683821 -4.007216e-02 -0.241789582
## hlr_books_b4_corrected_4 0.49473179 0.27636133 -1.030651e-01 -0.023222786
## hlr_books_b4_corrected_5 1.95710308 0.63455941 -5.725861e-01 2.344241501
## hlr_books_b4_corrected_6 0.68148015 -0.04649247 -3.371274e-01 -0.923753859
## hlr_books_b4_corrected_7 2.04231240 -0.75956763 -3.155880e-02 -0.900827924
## hlr_dbooks_b4_corrected_0 -0.23623733 -0.45578482 -2.649208e-05 0.018272585
## hlr_dbooks_b4_corrected_1 0.04584308 0.54881237 4.009997e-02 -0.106263466
## hlr_dbooks_b4_corrected_2 -0.02750506 1.04942578 -1.950435e-01 0.077771059
## hlr_dbooks_b4_corrected_3 0.28017207 1.67697694 5.577987e-01 -0.491218805
## hlr_dbooks_b4_corrected_4 3.21963548 0.42448683 -1.942759e+00 0.418690264
## hlr_dbooks_b4_corrected_5 2.90059588 -0.53094080 -1.163950e+00 5.024710243
## hlr_dbooks_b4_corrected_6 2.54504203 -0.39563263 9.448970e+00 -1.366354425
## hlr_dbooks_b4_corrected_7 3.79813712 -1.40601519 -2.101162e+00 -1.796567631
## hlr_games_b4_corrected_0 -0.61799217 -1.48838083 -8.502699e-02 0.420701980
## hlr_games_b4_corrected_1 -0.21494196 -0.03623749 6.296213e-02 0.003168325
## hlr_games_b4_corrected_2 0.13957654 0.79212952 -8.055370e-02 -0.239184084
## hlr_games_b4_corrected_3 0.59320347 1.50670860 -3.897926e-01 0.838205731
## hlr_games_b4_corrected_4 3.38895911 -0.56833762 -1.176060e+00 2.247111971
## hlr_games_b4_corrected_5 3.78385449 -1.17160462 4.463078e+00 0.661770096
## hlr_games_b4_corrected_6 2.33523723 0.18945044 -1.716557e+00 -0.590810752
## hlr_games_b4_corrected_7 3.89096016 -2.90411077 -3.179263e+00 -5.791557635
## hlr_dgames_b4_corrected_0 -0.32333326 -0.65652099 -5.216355e-03 0.106219625
## hlr_dgames_b4_corrected_1 -0.15210553 0.09370552 1.531864e-02 -0.047766053
## hlr_dgames_b4_corrected_2 0.41871688 0.94939086 5.926203e-02 -0.143538849
## hlr_dgames_b4_corrected_3 0.81325820 1.64986648 -4.140516e-01 0.256676042
## hlr_dgames_b4_corrected_4 2.41989391 0.38522480 7.673639e-01 1.322585480
## hlr_dgames_b4_corrected_5 5.27608562 -1.43489673 -6.347500e-01 7.221358861
## hlr_dgames_b4_corrected_6 6.05422691 -2.64456810 1.904441e+01 -2.570698753
## hlr_dgames_b4_corrected_7 4.68913615 -2.66451474 -4.068625e+00 -5.616086058
## hlr_ad_books_b4_corrected_0 -0.70806625 -1.54779340 -1.548014e-01 0.544546586
## hlr_ad_books_b4_corrected_1 -0.41495235 -0.19665005 -2.671450e-02 0.114116650
## hlr_ad_books_b4_corrected_2 -0.29441307 0.02426744 1.904026e-01 -0.041382173
## hlr_ad_books_b4_corrected_3 -0.07190634 0.48411283 -8.005715e-02 -0.137455072
## hlr_ad_books_b4_corrected_4 -0.06387342 0.87373659 -5.786781e-02 -0.236378236
## hlr_ad_books_b4_corrected_5 0.51635545 1.26783064 -2.925369e-01 0.109472983
## hlr_ad_books_b4_corrected_6 1.13419346 -0.30728861 -8.213579e-01 -0.020846613
## hlr_ad_books_b4_corrected_7 1.77056539 -0.49903311 1.009671e-01 -0.119568407
## hlr_ad_dbooks_b4_corrected_0 -0.34417905 -0.54646046 -7.513583e-02 0.050407154
## hlr_ad_dbooks_b4_corrected_1 -0.06715259 0.47713795 5.032310e-02 0.019301653
## hlr_ad_dbooks_b4_corrected_2 0.20546577 0.30711631 3.276222e-01 -0.349886952
## hlr_ad_dbooks_b4_corrected_3 0.13769371 1.50663651 -1.703513e-01 -0.278855924
## hlr_ad_dbooks_b4_corrected_4 0.27145674 0.82820323 -1.118326e-01 -0.004986065
## hlr_ad_dbooks_b4_corrected_5 1.44537481 1.01115354 3.699970e-01 -0.413577867
## hlr_ad_dbooks_b4_corrected_6 3.40217721 -1.31955683 4.245744e-01 -2.332750093
## hlr_ad_dbooks_b4_corrected_7 3.39460357 -0.46000729 -8.179791e-01 2.209239340
## hlr_ad_news_b4_corrected_0 -0.18583510 -0.17081045 -3.827842e-02 -0.022364007
## hlr_ad_news_b4_corrected_1 0.45633079 0.57082096 -6.739723e-02 0.144490176
## hlr_ad_news_b4_corrected_2 1.28651881 1.32668445 -9.446558e-01 -0.209217112
## hlr_ad_news_b4_corrected_3 0.19307306 3.59395923 6.282958e-01 -1.383739590
## hlr_ad_news_b4_corrected_5 3.15963992 -0.66653098 2.793327e+00 -1.068251155
## hlr_ad_news_b4_corrected_6 -0.15338926 1.74307716 8.925721e-02 -0.518206175
## hlr_ad_news_b4_corrected_7 3.55133792 -1.25503747 7.167451e+00 -0.306996553
## Dim 5
## hlr_books_b4_corrected_0 1.92907110
## hlr_books_b4_corrected_1 -0.13641190
## hlr_books_b4_corrected_2 -0.35519843
## hlr_books_b4_corrected_3 0.47966998
## hlr_books_b4_corrected_4 0.77990180
## hlr_books_b4_corrected_5 0.29124807
## hlr_books_b4_corrected_6 -0.04295493
## hlr_books_b4_corrected_7 -0.10619951
## hlr_dbooks_b4_corrected_0 0.11717131
## hlr_dbooks_b4_corrected_1 -0.46678040
## hlr_dbooks_b4_corrected_2 0.90493672
## hlr_dbooks_b4_corrected_3 1.43201115
## hlr_dbooks_b4_corrected_4 0.71374619
## hlr_dbooks_b4_corrected_5 -1.42539681
## hlr_dbooks_b4_corrected_6 0.21191209
## hlr_dbooks_b4_corrected_7 0.14283629
## hlr_games_b4_corrected_0 1.17014121
## hlr_games_b4_corrected_1 -0.37983857
## hlr_games_b4_corrected_2 0.62195371
## hlr_games_b4_corrected_3 1.06504943
## hlr_games_b4_corrected_4 -0.46244015
## hlr_games_b4_corrected_5 1.15936079
## hlr_games_b4_corrected_6 1.17848308
## hlr_games_b4_corrected_7 -0.66972061
## hlr_dgames_b4_corrected_0 0.46070058
## hlr_dgames_b4_corrected_1 -0.50002648
## hlr_dgames_b4_corrected_2 0.90389479
## hlr_dgames_b4_corrected_3 1.37618101
## hlr_dgames_b4_corrected_4 -0.35943987
## hlr_dgames_b4_corrected_5 -0.73928600
## hlr_dgames_b4_corrected_6 1.89888243
## hlr_dgames_b4_corrected_7 -0.35424722
## hlr_ad_books_b4_corrected_0 1.27285697
## hlr_ad_books_b4_corrected_1 -0.44576606
## hlr_ad_books_b4_corrected_2 -0.34374413
## hlr_ad_books_b4_corrected_3 0.20541767
## hlr_ad_books_b4_corrected_4 0.80144574
## hlr_ad_books_b4_corrected_5 0.53928884
## hlr_ad_books_b4_corrected_6 0.75958908
## hlr_ad_books_b4_corrected_7 -0.20202983
## hlr_ad_dbooks_b4_corrected_0 0.20601441
## hlr_ad_dbooks_b4_corrected_1 -0.71950047
## hlr_ad_dbooks_b4_corrected_2 0.34140593
## hlr_ad_dbooks_b4_corrected_3 1.10568141
## hlr_ad_dbooks_b4_corrected_4 1.07482955
## hlr_ad_dbooks_b4_corrected_5 1.61333358
## hlr_ad_dbooks_b4_corrected_6 -1.04493010
## hlr_ad_dbooks_b4_corrected_7 -0.55030930
## hlr_ad_news_b4_corrected_0 0.09963070
## hlr_ad_news_b4_corrected_1 -0.47842338
## hlr_ad_news_b4_corrected_2 0.69249692
## hlr_ad_news_b4_corrected_3 4.01452753
## hlr_ad_news_b4_corrected_5 0.15915568
## hlr_ad_news_b4_corrected_6 0.20812578
## hlr_ad_news_b4_corrected_7 0.18701477var_pref$cos2## Dim 1 Dim 2 Dim 3
## hlr_books_b4_corrected_0 1.876070e-02 0.1258686257 8.013288e-04
## hlr_books_b4_corrected_1 6.446711e-02 0.0434964416 1.704556e-03
## hlr_books_b4_corrected_2 3.640825e-02 0.0205348492 1.478183e-02
## hlr_books_b4_corrected_3 2.675071e-03 0.0955059476 2.824695e-04
## hlr_books_b4_corrected_4 1.167507e-02 0.0036431285 5.066911e-04
## hlr_books_b4_corrected_5 1.287480e-01 0.0135349797 1.102033e-02
## hlr_books_b4_corrected_6 6.120793e-03 0.0000284883 1.497922e-03
## hlr_books_b4_corrected_7 3.372018e-01 0.0466421397 8.051679e-05
## hlr_dbooks_b4_corrected_0 7.131032e-02 0.2654452985 8.967831e-10
## hlr_dbooks_b4_corrected_1 9.757373e-04 0.1398405431 7.465748e-04
## hlr_dbooks_b4_corrected_2 5.687187e-05 0.0827896187 2.859797e-03
## hlr_dbooks_b4_corrected_3 1.297461e-03 0.0464834986 5.142800e-03
## hlr_dbooks_b4_corrected_4 1.021286e-01 0.0017752617 3.718533e-02
## hlr_dbooks_b4_corrected_5 8.289120e-02 0.0027773215 1.334758e-02
## hlr_dbooks_b4_corrected_6 3.175117e-02 0.0007672803 4.376620e-01
## hlr_dbooks_b4_corrected_7 1.660870e-01 0.0227601168 5.082922e-02
## hlr_games_b4_corrected_0 3.379773e-02 0.1960422570 6.397867e-04
## hlr_games_b4_corrected_1 8.845886e-02 0.0025142881 7.590279e-03
## hlr_games_b4_corrected_2 4.577005e-03 0.1474174555 1.524500e-03
## hlr_games_b4_corrected_3 1.060976e-02 0.0684473610 4.581052e-03
## hlr_games_b4_corrected_4 1.898354e-01 0.0053389694 2.286144e-02
## hlr_games_b4_corrected_5 1.648403e-01 0.0158036213 2.293313e-01
## hlr_games_b4_corrected_6 2.673202e-02 0.0001759386 1.444395e-02
## hlr_games_b4_corrected_7 1.491583e-01 0.0830922105 9.958339e-02
## hlr_dgames_b4_corrected_0 4.059060e-02 0.1673485517 1.056474e-05
## hlr_dgames_b4_corrected_1 2.786282e-02 0.0105746355 2.826021e-04
## hlr_dgames_b4_corrected_2 2.398145e-02 0.1232890606 4.803829e-04
## hlr_dgames_b4_corrected_3 2.108455e-02 0.0867770619 5.465329e-03
## hlr_dgames_b4_corrected_4 3.833641e-02 0.0009715099 3.854974e-03
## hlr_dgames_b4_corrected_5 1.822395e-01 0.0134790746 2.637693e-03
## hlr_dgames_b4_corrected_6 5.969652e-02 0.0113904568 5.906998e-01
## hlr_dgames_b4_corrected_7 1.802295e-01 0.0581937604 1.356862e-01
## hlr_ad_books_b4_corrected_0 3.394610e-02 0.1622064452 1.622527e-03
## hlr_ad_books_b4_corrected_1 5.408389e-02 0.0121467360 2.241639e-04
## hlr_ad_books_b4_corrected_2 3.614956e-02 0.0002456048 1.511940e-02
## hlr_ad_books_b4_corrected_3 7.400189e-04 0.0335429799 9.172943e-04
## hlr_ad_books_b4_corrected_4 4.492214e-04 0.0840584000 3.687179e-04
## hlr_ad_books_b4_corrected_5 1.176943e-02 0.0709545973 3.777630e-03
## hlr_ad_books_b4_corrected_6 3.656975e-02 0.0026843595 1.917841e-02
## hlr_ad_books_b4_corrected_7 3.832818e-01 0.0304475925 1.246390e-03
## hlr_ad_dbooks_b4_corrected_0 1.023057e-01 0.2578982616 4.875566e-03
## hlr_ad_dbooks_b4_corrected_1 1.851365e-03 0.0934661718 1.039684e-03
## hlr_ad_dbooks_b4_corrected_2 6.312700e-03 0.0141039897 1.605029e-02
## hlr_ad_dbooks_b4_corrected_3 9.043741e-04 0.1082771720 1.384238e-03
## hlr_ad_dbooks_b4_corrected_4 1.591286e-03 0.0148122388 2.700743e-04
## hlr_ad_dbooks_b4_corrected_5 2.753355e-02 0.0134752090 1.804254e-03
## hlr_ad_dbooks_b4_corrected_6 1.140375e-01 0.0171549777 1.775994e-03
## hlr_ad_dbooks_b4_corrected_7 3.078019e-01 0.0056522660 1.787218e-02
## hlr_ad_news_b4_corrected_0 1.171712e-01 0.0989907082 4.971341e-03
## hlr_ad_news_b4_corrected_1 5.205945e-02 0.0814591410 1.135597e-03
## hlr_ad_news_b4_corrected_2 2.458115e-02 0.0261399746 1.325309e-02
## hlr_ad_news_b4_corrected_3 6.071206e-05 0.0210367149 6.429245e-04
## hlr_ad_news_b4_corrected_5 3.257202e-02 0.0014494733 2.545735e-02
## hlr_ad_news_b4_corrected_6 3.831965e-05 0.0049484006 1.297533e-05
## hlr_ad_news_b4_corrected_7 8.256629e-02 0.0103117450 3.363165e-01
## Dim 4 Dim 5
## hlr_books_b4_corrected_0 1.522672e-02 1.315617e-01
## hlr_books_b4_corrected_1 1.420339e-02 6.543545e-03
## hlr_books_b4_corrected_2 4.946597e-03 8.074619e-02
## hlr_books_b4_corrected_3 1.028398e-02 4.047354e-02
## hlr_books_b4_corrected_4 2.572460e-05 2.901348e-02
## hlr_books_b4_corrected_5 1.847216e-01 2.851275e-03
## hlr_books_b4_corrected_6 1.124641e-02 2.431798e-05
## hlr_books_b4_corrected_7 6.560384e-02 9.117812e-04
## hlr_dbooks_b4_corrected_0 4.266339e-04 1.754276e-02
## hlr_dbooks_b4_corrected_1 5.242679e-03 1.011604e-01
## hlr_dbooks_b4_corrected_2 4.546827e-04 6.156145e-02
## hlr_dbooks_b4_corrected_3 3.988362e-03 3.389514e-02
## hlr_dbooks_b4_corrected_4 1.727109e-03 5.019050e-03
## hlr_dbooks_b4_corrected_5 2.487459e-01 2.001730e-02
## hlr_dbooks_b4_corrected_6 9.151590e-03 2.201310e-04
## hlr_dbooks_b4_corrected_7 3.716050e-02 2.348938e-04
## hlr_games_b4_corrected_0 1.566285e-02 1.211708e-01
## hlr_games_b4_corrected_1 1.922022e-05 2.762467e-01
## hlr_games_b4_corrected_2 1.344067e-02 9.088091e-02
## hlr_games_b4_corrected_3 2.118358e-02 3.420091e-02
## hlr_games_b4_corrected_4 8.346301e-02 3.534726e-03
## hlr_games_b4_corrected_5 5.042068e-03 1.547504e-02
## hlr_games_b4_corrected_6 1.711065e-03 6.807953e-03
## hlr_games_b4_corrected_7 3.304644e-01 4.418972e-03
## hlr_dgames_b4_corrected_0 4.380607e-03 8.240665e-02
## hlr_dgames_b4_corrected_1 2.747728e-03 3.011072e-01
## hlr_dgames_b4_corrected_2 2.818210e-03 1.117558e-01
## hlr_dgames_b4_corrected_3 2.100284e-03 6.037518e-02
## hlr_dgames_b4_corrected_4 1.145160e-02 8.458070e-04
## hlr_dgames_b4_corrected_5 3.413946e-01 3.578028e-03
## hlr_dgames_b4_corrected_6 1.076302e-02 5.872564e-03
## hlr_dgames_b4_corrected_7 2.585281e-01 1.028616e-03
## hlr_ad_books_b4_corrected_0 2.007762e-02 1.096987e-01
## hlr_ad_books_b4_corrected_1 4.090435e-03 6.241450e-02
## hlr_ad_books_b4_corrected_2 7.141927e-04 4.927872e-02
## hlr_ad_books_b4_corrected_3 2.704145e-03 6.039264e-03
## hlr_ad_books_b4_corrected_4 6.152265e-03 7.072424e-02
## hlr_ad_books_b4_corrected_5 5.290198e-04 1.283810e-02
## hlr_ad_books_b4_corrected_6 1.235432e-05 1.640232e-02
## hlr_ad_books_b4_corrected_7 1.747942e-03 4.990284e-03
## hlr_ad_dbooks_b4_corrected_0 2.194397e-03 3.665440e-02
## hlr_ad_dbooks_b4_corrected_1 1.529521e-04 2.125341e-01
## hlr_ad_dbooks_b4_corrected_2 1.830593e-02 1.742924e-02
## hlr_ad_dbooks_b4_corrected_3 3.709195e-03 5.831496e-02
## hlr_ad_dbooks_b4_corrected_4 5.368620e-07 2.494744e-02
## hlr_ad_dbooks_b4_corrected_5 2.254322e-03 3.430439e-02
## hlr_ad_dbooks_b4_corrected_6 5.361303e-02 1.075743e-02
## hlr_ad_dbooks_b4_corrected_7 1.303703e-01 8.089224e-03
## hlr_ad_news_b4_corrected_0 1.696933e-03 3.367843e-02
## hlr_ad_news_b4_corrected_1 5.219353e-03 5.722223e-02
## hlr_ad_news_b4_corrected_2 6.500762e-04 7.122059e-03
## hlr_ad_news_b4_corrected_3 3.118461e-03 2.624826e-02
## hlr_ad_news_b4_corrected_5 3.723199e-03 8.264448e-05
## hlr_ad_news_b4_corrected_6 4.373577e-04 7.054779e-05
## hlr_ad_news_b4_corrected_7 6.170009e-04 2.289658e-04var_pref$contrib## Dim 1 Dim 2 Dim 3 Dim 4
## hlr_books_b4_corrected_0 0.549813180 5.009123260 3.637560e-02 7.633766e-01
## hlr_books_b4_corrected_1 1.447202267 1.325937060 5.927011e-02 5.454431e-01
## hlr_books_b4_corrected_2 0.673613326 0.515917868 4.236160e-01 1.565611e-01
## hlr_books_b4_corrected_3 0.069026616 3.346492764 1.128980e-02 4.539511e-01
## hlr_books_b4_corrected_4 0.338125001 0.143274985 2.272973e-02 1.274479e-03
## hlr_books_b4_corrected_5 3.779523229 0.539550820 5.011001e-01 9.276428e+00
## hlr_books_b4_corrected_6 0.183305724 0.001158545 6.948498e-02 5.761673e-01
## hlr_books_b4_corrected_7 9.466333549 1.778068611 3.501157e-03 3.150559e+00
## hlr_dbooks_b4_corrected_0 0.949939093 4.801717274 1.850394e-08 9.722214e-03
## hlr_dbooks_b4_corrected_1 0.020219101 3.934958673 2.396269e-02 1.858440e-01
## hlr_dbooks_b4_corrected_2 0.001604993 3.172705012 1.250098e-01 2.195081e-02
## hlr_dbooks_b4_corrected_3 0.038728377 1.884134778 2.377759e-01 2.036555e-01
## hlr_dbooks_b4_corrected_4 3.068628275 0.072433165 1.730621e+00 8.877344e-02
## hlr_dbooks_b4_corrected_5 2.490607689 0.113318608 6.212016e-01 1.278555e+01
## hlr_dbooks_b4_corrected_6 0.958717806 0.031460328 2.046931e+01 4.727092e-01
## hlr_dbooks_b4_corrected_7 4.982174566 0.927119786 2.361728e+00 1.906915e+00
## hlr_games_b4_corrected_0 0.942140291 7.420888817 2.762464e-02 7.469047e-01
## hlr_games_b4_corrected_1 0.920880793 0.035543099 1.223920e-01 3.422842e-04
## hlr_games_b4_corrected_2 0.112457989 4.918538067 5.801893e-02 5.649324e-01
## hlr_games_b4_corrected_3 0.312506819 2.737718703 2.090030e-01 1.067382e+00
## hlr_games_b4_corrected_4 5.666465894 0.216406645 1.056993e+00 4.261824e+00
## hlr_games_b4_corrected_5 4.944774781 0.643751090 1.065565e+01 2.587369e-01
## hlr_games_b4_corrected_6 0.807166050 0.007213903 6.755390e-01 8.838206e-02
## hlr_games_b4_corrected_7 4.481717123 3.390278602 4.634652e+00 1.698588e+01
## hlr_dgames_b4_corrected_0 0.887174062 4.966877715 3.576643e-04 1.637887e-01
## hlr_dgames_b4_corrected_1 0.383538472 0.197663915 6.025492e-03 6.470295e-02
## hlr_dgames_b4_corrected_2 0.640106562 4.468683456 1.986085e-02 1.286817e-01
## hlr_dgames_b4_corrected_3 0.619997768 3.465045844 2.489290e-01 1.056502e-01
## hlr_dgames_b4_corrected_4 1.155665817 0.039769144 1.800013e-01 5.905458e-01
## hlr_dgames_b4_corrected_5 5.493679031 0.551771251 1.231625e-01 1.760532e+01
## hlr_dgames_b4_corrected_6 1.808410459 0.468562247 2.771712e+01 5.577614e-01
## hlr_dgames_b4_corrected_7 5.424195229 2.378285786 6.325259e+00 1.331017e+01
## hlr_ad_books_b4_corrected_0 0.964699416 6.259625822 7.142122e-02 9.760695e-01
## hlr_ad_books_b4_corrected_1 1.248801497 0.380858130 8.017232e-03 1.615703e-01
## hlr_ad_books_b4_corrected_2 0.774055998 0.007141417 5.014611e-01 2.616081e-02
## hlr_ad_books_b4_corrected_3 0.019642859 1.209042873 3.771411e-02 1.227887e-01
## hlr_ad_books_b4_corrected_4 0.012278627 3.119957422 1.561050e-02 2.876676e-01
## hlr_ad_books_b4_corrected_5 0.342019213 2.799971544 1.700386e-01 2.629864e-02
## hlr_ad_books_b4_corrected_6 1.078953739 0.107547332 8.764491e-01 6.235424e-04
## hlr_ad_books_b4_corrected_7 10.362829870 1.117869997 5.219725e-02 8.084511e-02
## hlr_ad_dbooks_b4_corrected_0 1.665686793 5.701907109 1.229566e-01 6.111887e-02
## hlr_ad_dbooks_b4_corrected_1 0.039825219 2.730226816 3.464183e-02 5.628441e-03
## hlr_ad_dbooks_b4_corrected_2 0.166628231 0.505537697 6.562203e-01 8.265927e-01
## hlr_ad_dbooks_b4_corrected_3 0.026191830 4.258266019 6.209574e-02 1.837654e-01
## hlr_ad_dbooks_b4_corrected_4 0.047263322 0.597413428 1.242490e-02 2.727754e-05
## hlr_ad_dbooks_b4_corrected_5 0.824575779 0.548001799 8.369494e-02 1.154917e-01
## hlr_ad_dbooks_b4_corrected_6 3.426452640 0.699947125 8.265549e-02 2.755712e+00
## hlr_ad_dbooks_b4_corrected_7 9.096571403 0.226833502 8.181206e-01 6.591004e+00
## hlr_ad_news_b4_corrected_0 0.809335723 0.928496455 5.318811e-02 2.005113e-02
## hlr_ad_news_b4_corrected_1 1.263700828 2.685113897 4.269747e-02 2.167344e-01
## hlr_ad_news_b4_corrected_2 0.734944273 1.061293658 6.137657e-01 3.324934e-02
## hlr_ad_news_b4_corrected_3 0.001839175 0.865374464 3.016764e-02 1.616050e-01
## hlr_ad_news_b4_corrected_5 0.985110170 0.059528983 1.192577e+00 1.926295e-01
## hlr_ad_news_b4_corrected_6 0.001160832 0.203559328 6.088350e-04 2.266477e-02
## hlr_ad_news_b4_corrected_7 2.488992630 0.422115361 1.570371e+01 3.181801e-02
## Dim 5
## hlr_books_b4_corrected_0 6.913057376
## hlr_books_b4_corrected_1 0.263377636
## hlr_books_b4_corrected_2 2.678599000
## hlr_books_b4_corrected_3 1.872523638
## hlr_books_b4_corrected_4 1.506580251
## hlr_books_b4_corrected_5 0.150075741
## hlr_books_b4_corrected_6 0.001305781
## hlr_books_b4_corrected_7 0.045894146
## hlr_dbooks_b4_corrected_0 0.419001966
## hlr_dbooks_b4_corrected_1 3.758497277
## hlr_dbooks_b4_corrected_2 3.115008772
## hlr_dbooks_b4_corrected_3 1.814041410
## hlr_dbooks_b4_corrected_4 0.270391636
## hlr_dbooks_b4_corrected_5 1.078393371
## hlr_dbooks_b4_corrected_6 0.011917553
## hlr_dbooks_b4_corrected_7 0.012633670
## hlr_games_b4_corrected_0 6.056210293
## hlr_games_b4_corrected_1 5.156249158
## hlr_games_b4_corrected_2 4.003652590
## hlr_games_b4_corrected_3 1.806202466
## hlr_games_b4_corrected_4 0.189175751
## hlr_games_b4_corrected_5 0.832318694
## hlr_games_b4_corrected_6 0.368572015
## hlr_games_b4_corrected_7 0.238063585
## hlr_dgames_b4_corrected_0 3.229388969
## hlr_dgames_b4_corrected_1 7.431554644
## hlr_dgames_b4_corrected_2 5.348375415
## hlr_dgames_b4_corrected_3 3.183164779
## hlr_dgames_b4_corrected_4 0.045715858
## hlr_dgames_b4_corrected_5 0.193392377
## hlr_dgames_b4_corrected_6 0.318970520
## hlr_dgames_b4_corrected_7 0.055505664
## hlr_ad_books_b4_corrected_0 5.589567627
## hlr_ad_books_b4_corrected_1 2.583959648
## hlr_ad_books_b4_corrected_2 1.891923421
## hlr_ad_books_b4_corrected_3 0.287422469
## hlr_ad_books_b4_corrected_4 3.466031289
## hlr_ad_books_b4_corrected_5 0.668914501
## hlr_ad_books_b4_corrected_6 0.867682319
## hlr_ad_books_b4_corrected_7 0.241913543
## hlr_ad_dbooks_b4_corrected_0 1.070026273
## hlr_ad_dbooks_b4_corrected_1 8.197276586
## hlr_ad_dbooks_b4_corrected_2 0.824871913
## hlr_ad_dbooks_b4_corrected_3 3.028115553
## hlr_ad_dbooks_b4_corrected_4 1.328547075
## hlr_ad_dbooks_b4_corrected_5 1.842013163
## hlr_ad_dbooks_b4_corrected_6 0.579535604
## hlr_ad_dbooks_b4_corrected_7 0.428635441
## hlr_ad_news_b4_corrected_0 0.417094368
## hlr_ad_news_b4_corrected_1 2.490487145
## hlr_ad_news_b4_corrected_2 0.381797075
## hlr_ad_news_b4_corrected_3 1.425684001
## hlr_ad_news_b4_corrected_5 0.004481555
## hlr_ad_news_b4_corrected_6 0.003831829
## hlr_ad_news_b4_corrected_7 0.012375599#Correlação entre variáveis e dimensões principais correlação entre as variáveis e as dimensões principais do MCA
fviz_mca_var(res.mca_pref, choice = "mca.cor",
repel = TRUE, # Avoid text overlapping (slow)
ggtheme = theme_minimal())
head(round(var_pref$coord, 2), 4)## Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_b4_corrected_0 -0.73 -1.89 -0.15 0.66 1.93
## hlr_books_b4_corrected_1 -0.43 -0.35 -0.07 0.20 -0.14
## hlr_books_b4_corrected_2 -0.24 0.18 0.15 -0.09 -0.36
## hlr_books_b4_corrected_3 -0.12 0.74 -0.04 -0.24 0.48para visualizar apenas categorias de variáveis:
fviz_mca_var(res.mca_pref,
repel = TRUE, # Avoid text overlapping (slow)
ggtheme = theme_minimal())## Warning: ggrepel: 36 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
head(var_pref$cos2, 10)## Dim 1 Dim 2 Dim 3 Dim 4
## hlr_books_b4_corrected_0 0.0187607018 0.1258686257 8.013288e-04 0.0152267183
## hlr_books_b4_corrected_1 0.0644671121 0.0434964416 1.704556e-03 0.0142033901
## hlr_books_b4_corrected_2 0.0364082480 0.0205348492 1.478183e-02 0.0049465967
## hlr_books_b4_corrected_3 0.0026750708 0.0955059476 2.824695e-04 0.0102839820
## hlr_books_b4_corrected_4 0.0116750718 0.0036431285 5.066911e-04 0.0000257246
## hlr_books_b4_corrected_5 0.1287479822 0.0135349797 1.102033e-02 0.1847216207
## hlr_books_b4_corrected_6 0.0061207933 0.0000284883 1.497922e-03 0.0112464078
## hlr_books_b4_corrected_7 0.3372018235 0.0466421397 8.051679e-05 0.0656038377
## hlr_dbooks_b4_corrected_0 0.0713103182 0.2654452985 8.967831e-10 0.0004266339
## hlr_dbooks_b4_corrected_1 0.0009757373 0.1398405431 7.465748e-04 0.0052426791
## Dim 5
## hlr_books_b4_corrected_0 1.315617e-01
## hlr_books_b4_corrected_1 6.543545e-03
## hlr_books_b4_corrected_2 8.074619e-02
## hlr_books_b4_corrected_3 4.047354e-02
## hlr_books_b4_corrected_4 2.901348e-02
## hlr_books_b4_corrected_5 2.851275e-03
## hlr_books_b4_corrected_6 2.431798e-05
## hlr_books_b4_corrected_7 9.117812e-04
## hlr_dbooks_b4_corrected_0 1.754276e-02
## hlr_dbooks_b4_corrected_1 1.011604e-01Se uma categoria de variável é bem representada por duas dimensões, a soma do cos2 é próxima de um. Para alguns dos itens de linha, são necessárias mais de 2 dimensões para representar perfeitamente os dados.
!!! OS COSSENOS SAO MUITO BAIXOS!!
fviz_mca_var(res.mca_pref, col.var = "cos2",
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE, # Avoid text overlapping
ggtheme = theme_minimal())## Warning: ggrepel: 35 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
fviz_cos2(res.mca_pref, choice = "var", axes = 1:2)
head(round(var_pref$contrib,2), 49)## Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_b4_corrected_0 0.55 5.01 0.04 0.76 6.91
## hlr_books_b4_corrected_1 1.45 1.33 0.06 0.55 0.26
## hlr_books_b4_corrected_2 0.67 0.52 0.42 0.16 2.68
## hlr_books_b4_corrected_3 0.07 3.35 0.01 0.45 1.87
## hlr_books_b4_corrected_4 0.34 0.14 0.02 0.00 1.51
## hlr_books_b4_corrected_5 3.78 0.54 0.50 9.28 0.15
## hlr_books_b4_corrected_6 0.18 0.00 0.07 0.58 0.00
## hlr_books_b4_corrected_7 9.47 1.78 0.00 3.15 0.05
## hlr_dbooks_b4_corrected_0 0.95 4.80 0.00 0.01 0.42
## hlr_dbooks_b4_corrected_1 0.02 3.93 0.02 0.19 3.76
## hlr_dbooks_b4_corrected_2 0.00 3.17 0.13 0.02 3.12
## hlr_dbooks_b4_corrected_3 0.04 1.88 0.24 0.20 1.81
## hlr_dbooks_b4_corrected_4 3.07 0.07 1.73 0.09 0.27
## hlr_dbooks_b4_corrected_5 2.49 0.11 0.62 12.79 1.08
## hlr_dbooks_b4_corrected_6 0.96 0.03 20.47 0.47 0.01
## hlr_dbooks_b4_corrected_7 4.98 0.93 2.36 1.91 0.01
## hlr_games_b4_corrected_0 0.94 7.42 0.03 0.75 6.06
## hlr_games_b4_corrected_1 0.92 0.04 0.12 0.00 5.16
## hlr_games_b4_corrected_2 0.11 4.92 0.06 0.56 4.00
## hlr_games_b4_corrected_3 0.31 2.74 0.21 1.07 1.81
## hlr_games_b4_corrected_4 5.67 0.22 1.06 4.26 0.19
## hlr_games_b4_corrected_5 4.94 0.64 10.66 0.26 0.83
## hlr_games_b4_corrected_6 0.81 0.01 0.68 0.09 0.37
## hlr_games_b4_corrected_7 4.48 3.39 4.63 16.99 0.24
## hlr_dgames_b4_corrected_0 0.89 4.97 0.00 0.16 3.23
## hlr_dgames_b4_corrected_1 0.38 0.20 0.01 0.06 7.43
## hlr_dgames_b4_corrected_2 0.64 4.47 0.02 0.13 5.35
## hlr_dgames_b4_corrected_3 0.62 3.47 0.25 0.11 3.18
## hlr_dgames_b4_corrected_4 1.16 0.04 0.18 0.59 0.05
## hlr_dgames_b4_corrected_5 5.49 0.55 0.12 17.61 0.19
## hlr_dgames_b4_corrected_6 1.81 0.47 27.72 0.56 0.32
## hlr_dgames_b4_corrected_7 5.42 2.38 6.33 13.31 0.06
## hlr_ad_books_b4_corrected_0 0.96 6.26 0.07 0.98 5.59
## hlr_ad_books_b4_corrected_1 1.25 0.38 0.01 0.16 2.58
## hlr_ad_books_b4_corrected_2 0.77 0.01 0.50 0.03 1.89
## hlr_ad_books_b4_corrected_3 0.02 1.21 0.04 0.12 0.29
## hlr_ad_books_b4_corrected_4 0.01 3.12 0.02 0.29 3.47
## hlr_ad_books_b4_corrected_5 0.34 2.80 0.17 0.03 0.67
## hlr_ad_books_b4_corrected_6 1.08 0.11 0.88 0.00 0.87
## hlr_ad_books_b4_corrected_7 10.36 1.12 0.05 0.08 0.24
## hlr_ad_dbooks_b4_corrected_0 1.67 5.70 0.12 0.06 1.07
## hlr_ad_dbooks_b4_corrected_1 0.04 2.73 0.03 0.01 8.20
## hlr_ad_dbooks_b4_corrected_2 0.17 0.51 0.66 0.83 0.82
## hlr_ad_dbooks_b4_corrected_3 0.03 4.26 0.06 0.18 3.03
## hlr_ad_dbooks_b4_corrected_4 0.05 0.60 0.01 0.00 1.33
## hlr_ad_dbooks_b4_corrected_5 0.82 0.55 0.08 0.12 1.84
## hlr_ad_dbooks_b4_corrected_6 3.43 0.70 0.08 2.76 0.58
## hlr_ad_dbooks_b4_corrected_7 9.10 0.23 0.82 6.59 0.43
## hlr_ad_news_b4_corrected_0 0.81 0.93 0.05 0.02 0.4215 principais categorias de variáveis que contribuem para as dimensões:
# Contributions of rows to dimension 1
fviz_contrib(res.mca_pref, choice = "var", axes = 1, top = 15)
# Contributions of rows to dimension 2
fviz_contrib(res.mca_pref, choice = "var", axes = 2, top = 15)
fviz_contrib(res.mca_pref, choice = "var", axes = 1:2, top = 15)
fviz_mca_var(res.mca_pref, alpha.var="contrib",
repel = TRUE,
ggtheme = theme_minimal())## Warning: ggrepel: 35 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
##Gráfico de indivíduos Resultados
lista contendo as coordenadas, o cos2 e as contribuições dos indivíduos:
ind_pref <- get_mca_ind(res.mca_pref)
ind_pref## Multiple Correspondence Analysis Results for individuals
## ===================================================
## Name Description
## 1 "$coord" "Coordinates for the individuals"
## 2 "$cos2" "Cos2 for the individuals"
## 3 "$contrib" "contributions of the individuals"colorir os indivíduos por seus valores de cos2:
fviz_mca_ind(res.mca_pref, col.ind = "cos2",
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE, # Avoid text overlapping (slow if many points)
ggtheme = theme_minimal())## Warning: ggrepel: 562 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
# Cos2 of individuals
fviz_cos2(res.mca_pref, choice = "ind", axes = 1:2, top = 20)
# Contribution of individuals to the dimensions
fviz_contrib(res.mca_pref, choice = "ind", axes = 1:2, top = 20)
POS-PANDEMIA
db_bloco_2_posf <- as.data.frame(lapply(db_bloco_2_pos, as.factor))summary(db_bloco_2_posf)## hlr_books_since_corrected hlr_dbooks_since_corrected hlr_games_since_corrected
## 2 :248 0 :259 0: 58
## 1 :147 1 :227 1:363
## 3 : 90 2 : 82 2:150
## 7 : 38 3 : 20 3: 20
## 0 : 33 7 : 16 4: 13
## 4 : 31 5 : 5 5: 3
## (Other): 28 (Other): 6 7: 8
## hlr_dgames_since_corrected hlr_ad_books_since_corrected
## 1 :346 2 :178
## 0 :144 1 :158
## 2 : 94 3 : 75
## 3 : 15 7 : 61
## 7 : 7 0 : 51
## 4 : 5 4 : 51
## (Other): 4 (Other): 41
## hlr_ad_dbooks_since_corrected hlr_ad_news_since_corrected
## 0 :269 0 :471
## 1 :200 1 :129
## 2 : 67 2 : 6
## 3 : 38 3 : 3
## 4 : 15 5 : 2
## 7 : 15 7 : 2
## (Other): 11 (Other): 2for (i in 1:7) {
plot(db_bloco_2_posf[,i], main=colnames(db_bloco_2_posf)[i],
ylab = "Count", col="steelblue", las = 2)
}
MCA(db_bloco_2_posf,ncp = 5, graph = TRUE) 
## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 7 variables
## *The results are available in the following objects:
##
## name description
## 1 "$eig" "eigenvalues"
## 2 "$var" "results for the variables"
## 3 "$var$coord" "coord. of the categories"
## 4 "$var$cos2" "cos2 for the categories"
## 5 "$var$contrib" "contributions of the categories"
## 6 "$var$v.test" "v-test for the categories"
## 7 "$ind" "results for the individuals"
## 8 "$ind$coord" "coord. for the individuals"
## 9 "$ind$cos2" "cos2 for the individuals"
## 10 "$ind$contrib" "contributions of the individuals"
## 11 "$call" "intermediate results"
## 12 "$call$marge.col" "weights of columns"
## 13 "$call$marge.li" "weights of rows"res.mca_posf <- MCA(db_bloco_2_posf, graph = FALSE)
print(res.mca_posf)## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 7 variables
## *The results are available in the following objects:
##
## name description
## 1 "$eig" "eigenvalues"
## 2 "$var" "results for the variables"
## 3 "$var$coord" "coord. of the categories"
## 4 "$var$cos2" "cos2 for the categories"
## 5 "$var$contrib" "contributions of the categories"
## 6 "$var$v.test" "v-test for the categories"
## 7 "$ind" "results for the individuals"
## 8 "$ind$coord" "coord. for the individuals"
## 9 "$ind$cos2" "cos2 for the individuals"
## 10 "$ind$contrib" "contributions of the individuals"
## 11 "$call" "intermediate results"
## 12 "$call$marge.col" "weights of columns"
## 13 "$call$marge.li" "weights of rows"#Visualização e interpretação Autovalores/variâncias retidos por cada dimensão (eixo)
eig.val_posf <- get_eigenvalue(res.mca_posf)
eig.val_posf## eigenvalue variance.percent cumulative.variance.percent
## Dim.1 0.47370292 6.9081676 6.908168
## Dim.2 0.38267025 5.5806078 12.488775
## Dim.3 0.35167858 5.1286460 17.617421
## Dim.4 0.29546149 4.3088134 21.926235
## Dim.5 0.25488865 3.7171262 25.643361
## Dim.6 0.24729632 3.6064047 29.249766
## Dim.7 0.23008821 3.3554531 32.605219
## Dim.8 0.22043722 3.2147095 35.819928
## Dim.9 0.20865380 3.0428679 38.862796
## Dim.10 0.19739943 2.8787416 41.741538
## Dim.11 0.19082340 2.7828412 44.524379
## Dim.12 0.18543843 2.7043104 47.228689
## Dim.13 0.17743097 2.5875349 49.816224
## Dim.14 0.17040256 2.4850373 52.301262
## Dim.15 0.16622364 2.4240948 54.725356
## Dim.16 0.15910590 2.3202944 57.045651
## Dim.17 0.15499543 2.2603500 59.306001
## Dim.18 0.14881820 2.1702654 61.476266
## Dim.19 0.14800896 2.1584640 63.634730
## Dim.20 0.14535492 2.1197593 65.754489
## Dim.21 0.13778997 2.0094371 67.763927
## Dim.22 0.13482158 1.9661480 69.730075
## Dim.23 0.13115241 1.9126393 71.642714
## Dim.24 0.12803032 1.8671088 73.509823
## Dim.25 0.12051779 1.7575512 75.267374
## Dim.26 0.11756371 1.7144708 76.981845
## Dim.27 0.11336541 1.6532455 78.635090
## Dim.28 0.11057074 1.6124899 80.247580
## Dim.29 0.10402357 1.5170104 81.764590
## Dim.30 0.10206046 1.4883817 83.252972
## Dim.31 0.09933572 1.4486459 84.701618
## Dim.32 0.09047224 1.3193868 86.021005
## Dim.33 0.08723342 1.2721541 87.293159
## Dim.34 0.08563467 1.2488390 88.541998
## Dim.35 0.08061983 1.1757059 89.717704
## Dim.36 0.07826364 1.1413447 90.859049
## Dim.37 0.07202398 1.0503497 91.909398
## Dim.38 0.06957675 1.0146609 92.924059
## Dim.39 0.06689337 0.9755282 93.899587
## Dim.40 0.06587312 0.9606497 94.860237
## Dim.41 0.06278948 0.9156799 95.775917
## Dim.42 0.05335250 0.7780573 96.553974
## Dim.43 0.04688914 0.6837999 97.237774
## Dim.44 0.04557909 0.6646950 97.902469
## Dim.45 0.04217102 0.6149941 98.517463
## Dim.46 0.03827680 0.5582033 99.075667
## Dim.47 0.03649084 0.5321581 99.607825
## Dim.48 0.02689202 0.3921753 100.000000Porcentagens de inércia explicadas por cada dimensão MCA
fviz_screeplot(res.mca_posf, addlabels = TRUE, ylim = c(0, 45))
Biplot de indivíduos e categorias de variáveis:
fviz_mca_biplot(res.mca_posf,
repel = TRUE, # Avoid text overlapping (slow if many point)
ggtheme = theme_minimal())## Warning: ggrepel: 587 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps## Warning: ggrepel: 29 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
#Gráfico de variáveis #Resultados Usada para extrair os resultados para categorias de variáveis. Esta função retorna uma lista contendo as coordenadas, o cos2 e a contribuição das categorias de variáveis:
var_posf <- get_mca_var(res.mca_posf)
var_posf## Multiple Correspondence Analysis Results for variables
## ===================================================
## Name Description
## 1 "$coord" "Coordinates for categories"
## 2 "$cos2" "Cos2 for categories"
## 3 "$contrib" "contributions of categories"# Coordinates
var_posf$coord## Dim 1 Dim 2 Dim 3
## hlr_books_since_corrected_0 -0.9475239349 -2.22641434 0.65303113
## hlr_books_since_corrected_1 -0.4288280601 -0.23460592 -0.06917895
## hlr_books_since_corrected_2 -0.1775201127 0.15767977 0.01430131
## hlr_books_since_corrected_3 0.0323875765 0.79582224 -0.21070010
## hlr_books_since_corrected_4 0.3177380826 1.07709815 -0.06973911
## hlr_books_since_corrected_5 2.0312557314 0.31099137 2.61094249
## hlr_books_since_corrected_6 0.9774488867 -0.09545921 0.03608648
## hlr_books_since_corrected_7 2.2236363784 -1.02028641 -0.74437039
## hlr_dbooks_since_corrected_0 -0.2934011206 -0.47833054 0.09673767
## hlr_dbooks_since_corrected_1 -0.0951475392 0.23055673 -0.08762944
## hlr_dbooks_since_corrected_2 0.1267464308 0.88995604 -0.01774931
## hlr_dbooks_since_corrected_3 0.0294740269 0.95173542 -0.43400877
## hlr_dbooks_since_corrected_4 2.7093997584 0.63788049 2.89995486
## hlr_dbooks_since_corrected_5 4.0398799497 -0.15779485 6.50464637
## hlr_dbooks_since_corrected_6 -0.0108165491 0.98750991 -0.31015270
## hlr_dbooks_since_corrected_7 3.4744580044 -1.51233998 -2.40814384
## hlr_games_since_corrected_0 -0.7653817766 -1.62210308 0.43037952
## hlr_games_since_corrected_1 -0.1868521152 0.02545536 -0.04521910
## hlr_games_since_corrected_2 0.1828750247 0.47300638 -0.13674520
## hlr_games_since_corrected_3 0.2802856599 1.78447567 -0.35134192
## hlr_games_since_corrected_4 2.7335182432 0.49974484 3.60517793
## hlr_games_since_corrected_5 1.3805802632 -1.38622149 0.96410861
## hlr_games_since_corrected_7 4.9381270032 -3.01710050 -3.84606239
## hlr_dgames_since_corrected_0 -0.3790651140 -0.78576990 0.25036962
## hlr_dgames_since_corrected_1 -0.1522920023 0.10683892 -0.07705470
## hlr_dgames_since_corrected_2 0.4091299468 0.64580653 -0.16838964
## hlr_dgames_since_corrected_3 0.4767017356 1.97507659 -0.53542172
## hlr_dgames_since_corrected_4 1.1065464770 1.15606573 2.23004647
## hlr_dgames_since_corrected_5 2.6464321319 0.02713979 3.80581275
## hlr_dgames_since_corrected_6 5.9080885608 -0.09130865 11.05754368
## hlr_dgames_since_corrected_7 5.5754134860 -2.82847929 -3.77275630
## hlr_ad_books_since_corrected_0 -0.8048747165 -1.67790884 0.46775837
## hlr_ad_books_since_corrected_1 -0.3859758616 -0.13872397 -0.07002859
## hlr_ad_books_since_corrected_2 -0.2470224634 0.14326623 -0.09604665
## hlr_ad_books_since_corrected_3 0.0002960899 0.58474111 0.09590922
## hlr_ad_books_since_corrected_4 0.1945186416 0.86421057 -0.30108613
## hlr_ad_books_since_corrected_5 0.8872894866 0.49988634 0.14041360
## hlr_ad_books_since_corrected_6 0.5257570732 0.39470914 -0.47988748
## hlr_ad_books_since_corrected_7 1.7467276167 -0.40060568 0.30321489
## hlr_ad_dbooks_since_corrected_0 -0.3662580750 -0.58252149 0.13655592
## hlr_ad_dbooks_since_corrected_1 -0.0854786546 0.41319583 -0.10368650
## hlr_ad_dbooks_since_corrected_2 0.2440648538 0.82653226 -0.33754485
## hlr_ad_dbooks_since_corrected_3 0.3388352102 0.75824022 -0.50530790
## hlr_ad_dbooks_since_corrected_4 0.4952304707 0.37543604 -0.69112352
## hlr_ad_dbooks_since_corrected_5 1.9684910252 -0.10955787 0.52069074
## hlr_ad_dbooks_since_corrected_6 4.1521102257 -2.88513439 -3.49744026
## hlr_ad_dbooks_since_corrected_7 3.2383156498 -0.23038477 3.10218280
## hlr_ad_news_since_corrected_0 -0.1070340081 -0.17522998 0.03720093
## hlr_ad_news_since_corrected_1 0.1919698919 0.56704993 -0.06652505
## hlr_ad_news_since_corrected_2 1.1911412583 1.50528193 -0.03578463
## hlr_ad_news_since_corrected_3 1.0015184658 1.52305488 -0.80411618
## hlr_ad_news_since_corrected_4 0.0209520863 1.20766125 -0.82189953
## hlr_ad_news_since_corrected_5 5.9248748021 -2.69378120 -4.71009744
## hlr_ad_news_since_corrected_6 0.0336528582 1.04854115 -0.81259553
## hlr_ad_news_since_corrected_7 1.7965721279 -0.54280824 2.37091929
## Dim 4 Dim 5
## hlr_books_since_corrected_0 1.68299093 -0.317448734
## hlr_books_since_corrected_1 -0.47729957 0.057508621
## hlr_books_since_corrected_2 -0.13161744 0.004543236
## hlr_books_since_corrected_3 0.32968644 -0.258236557
## hlr_books_since_corrected_4 1.10721103 0.924599469
## hlr_books_since_corrected_5 0.08588533 -0.447924037
## hlr_books_since_corrected_6 -0.14018635 0.925095208
## hlr_books_since_corrected_7 -0.41430459 -0.331036596
## hlr_dbooks_since_corrected_0 0.05125447 0.074005206
## hlr_dbooks_since_corrected_1 -0.48224740 0.002279481
## hlr_dbooks_since_corrected_2 0.77738968 -0.195361412
## hlr_dbooks_since_corrected_3 1.47925197 -0.219321990
## hlr_dbooks_since_corrected_4 1.15790067 6.712212370
## hlr_dbooks_since_corrected_5 -0.94781810 -3.843162931
## hlr_dbooks_since_corrected_6 0.24073515 -1.021603399
## hlr_dbooks_since_corrected_7 0.15564221 -0.304283935
## hlr_games_since_corrected_0 1.18518535 -0.216239002
## hlr_games_since_corrected_1 -0.45763481 0.097300010
## hlr_games_since_corrected_2 0.41238456 -0.263667416
## hlr_games_since_corrected_3 1.63133990 0.105777424
## hlr_games_since_corrected_4 0.15993332 -0.282617422
## hlr_games_since_corrected_5 0.47254615 6.366789413
## hlr_games_since_corrected_7 -0.07507087 -0.096227435
## hlr_dgames_since_corrected_0 0.43823489 -0.004378825
## hlr_dgames_since_corrected_1 -0.43790958 0.093342220
## hlr_dgames_since_corrected_2 0.51021795 -0.585916634
## hlr_dgames_since_corrected_3 1.96575606 -0.333927102
## hlr_dgames_since_corrected_4 1.47086089 1.394015485
## hlr_dgames_since_corrected_5 1.81605268 12.993636360
## hlr_dgames_since_corrected_6 -1.47740312 -5.224087320
## hlr_dgames_since_corrected_7 0.41892265 0.844291059
## hlr_ad_books_since_corrected_0 1.21508668 -0.228496695
## hlr_ad_books_since_corrected_1 -0.74157351 0.045976693
## hlr_ad_books_since_corrected_2 -0.05971043 0.031165338
## hlr_ad_books_since_corrected_3 0.37068260 -0.290829664
## hlr_ad_books_since_corrected_4 0.82048956 -0.066520718
## hlr_ad_books_since_corrected_5 0.59562425 2.371281307
## hlr_ad_books_since_corrected_6 0.83913809 -0.124427483
## hlr_ad_books_since_corrected_7 -0.53878473 -0.422257400
## hlr_ad_dbooks_since_corrected_0 0.11538048 0.043454317
## hlr_ad_dbooks_since_corrected_1 -0.57617395 0.038185996
## hlr_ad_dbooks_since_corrected_2 0.59639147 -0.360435456
## hlr_ad_dbooks_since_corrected_3 0.92632207 0.021077512
## hlr_ad_dbooks_since_corrected_4 1.25189657 0.140597577
## hlr_ad_dbooks_since_corrected_5 0.14096982 -1.685198079
## hlr_ad_dbooks_since_corrected_6 -1.03350548 -0.039932024
## hlr_ad_dbooks_since_corrected_7 -0.43948271 0.924598043
## hlr_ad_news_since_corrected_0 0.10205994 -0.025472904
## hlr_ad_news_since_corrected_1 -0.52083297 0.091067395
## hlr_ad_news_since_corrected_2 2.00742474 0.376864427
## hlr_ad_news_since_corrected_3 2.24913489 -0.961440905
## hlr_ad_news_since_corrected_4 1.38259671 0.161773747
## hlr_ad_news_since_corrected_5 0.87680565 -0.693209418
## hlr_ad_news_since_corrected_6 0.52701823 0.346256935
## hlr_ad_news_since_corrected_7 -1.66897841 0.875784148var_posf$cos2## Dim 1 Dim 2 Dim 3
## hlr_books_since_corrected_0 5.090628e-02 2.810625e-01 2.418014e-02
## hlr_books_since_corrected_1 5.776142e-02 1.728819e-02 1.503209e-03
## hlr_books_since_corrected_2 2.129515e-02 1.680109e-02 1.382093e-04
## hlr_books_since_corrected_3 1.798209e-04 1.085714e-01 7.610491e-03
## hlr_books_since_corrected_4 5.359045e-03 6.158280e-02 2.581675e-04
## hlr_books_since_corrected_5 8.909966e-02 2.088544e-03 1.472114e-01
## hlr_books_since_corrected_6 2.388516e-02 2.278115e-04 3.255585e-05
## hlr_books_since_corrected_7 3.256382e-01 6.855703e-02 3.649102e-02
## hlr_dbooks_since_corrected_0 6.262869e-02 1.664585e-01 6.808337e-03
## hlr_dbooks_since_corrected_1 5.296503e-03 3.109924e-02 4.492563e-03
## hlr_dbooks_since_corrected_2 2.471486e-03 1.218495e-01 4.846741e-05
## hlr_dbooks_since_corrected_3 2.920061e-05 3.044707e-02 6.331550e-03
## hlr_dbooks_since_corrected_4 4.805792e-02 2.663774e-03 5.505557e-02
## hlr_dbooks_since_corrected_5 1.337757e-01 2.040919e-04 3.468068e-01
## hlr_dbooks_since_corrected_6 3.817218e-07 3.181650e-03 3.138489e-04
## hlr_dbooks_since_corrected_7 3.224536e-01 6.109308e-02 1.549024e-01
## hlr_games_since_corrected_0 6.099989e-02 2.739868e-01 1.928750e-02
## hlr_games_since_corrected_1 5.029237e-02 9.333928e-04 2.945438e-03
## hlr_games_since_corrected_2 1.078815e-02 7.217259e-02 6.032016e-03
## hlr_games_since_corrected_3 2.640674e-03 1.070371e-01 4.149282e-03
## hlr_games_since_corrected_4 1.613581e-01 5.393162e-03 2.806728e-01
## hlr_games_since_corrected_5 9.343146e-03 9.419657e-03 4.556399e-03
## hlr_games_since_corrected_7 3.213852e-01 1.199723e-01 1.949548e-01
## hlr_dgames_since_corrected_0 4.393081e-02 1.887697e-01 1.916483e-02
## hlr_dgames_since_corrected_1 2.983170e-02 1.468192e-02 7.636987e-03
## hlr_dgames_since_corrected_2 3.020040e-02 7.524800e-02 5.115886e-03
## hlr_dgames_since_corrected_3 5.681114e-03 9.752319e-02 7.166910e-03
## hlr_dgames_since_corrected_4 1.003644e-02 1.095482e-02 4.076317e-02
## hlr_dgames_since_corrected_5 2.285025e-02 2.403160e-06 4.725680e-02
## hlr_dgames_since_corrected_6 1.138842e-01 2.720153e-05 3.989210e-01
## hlr_dgames_since_corrected_7 3.578892e-01 9.210866e-02 1.638747e-01
## hlr_ad_books_since_corrected_0 5.857977e-02 2.545821e-01 1.978492e-02
## hlr_ad_books_since_corrected_1 5.150640e-02 6.653404e-03 1.695476e-03
## hlr_ad_books_since_corrected_2 2.485487e-02 8.360384e-03 3.757534e-03
## hlr_ad_books_since_corrected_3 1.217628e-08 4.748919e-02 1.277580e-03
## hlr_ad_books_since_corrected_4 3.421476e-03 6.753520e-02 8.197333e-03
## hlr_ad_books_since_corrected_5 2.920779e-02 9.270657e-03 7.314529e-04
## hlr_ad_books_since_corrected_6 8.812063e-03 4.966629e-03 7.341523e-03
## hlr_ad_books_since_corrected_7 3.359467e-01 1.767072e-02 1.012328e-02
## hlr_ad_dbooks_since_corrected_0 1.042919e-01 2.638154e-01 1.449764e-02
## hlr_ad_dbooks_since_corrected_1 3.521253e-03 8.227990e-02 5.181152e-03
## hlr_ad_dbooks_since_corrected_2 7.282906e-03 8.352450e-02 1.393020e-02
## hlr_ad_dbooks_since_corrected_3 7.561098e-03 3.786356e-02 1.681589e-02
## hlr_ad_dbooks_since_corrected_4 6.131330e-03 3.523806e-03 1.194129e-02
## hlr_ad_dbooks_since_corrected_5 4.461299e-02 1.381916e-04 3.121434e-03
## hlr_ad_dbooks_since_corrected_6 1.128643e-01 5.449427e-02 8.007914e-02
## hlr_ad_dbooks_since_corrected_7 2.621672e-01 1.326929e-03 2.405885e-01
## hlr_ad_news_since_corrected_0 3.747158e-02 1.004327e-01 4.526537e-03
## hlr_ad_news_since_corrected_1 9.781820e-03 8.534853e-02 1.174692e-03
## hlr_ad_news_since_corrected_2 1.397850e-02 2.232388e-02 1.261616e-05
## hlr_ad_news_since_corrected_3 4.916859e-03 1.137106e-02 3.169622e-03
## hlr_ad_news_since_corrected_4 7.149673e-07 2.375319e-03 1.100194e-03
## hlr_ad_news_since_corrected_5 1.145323e-01 2.367523e-02 7.238179e-02
## hlr_ad_news_since_corrected_6 1.844487e-06 1.790617e-03 1.075426e-03
## hlr_ad_news_since_corrected_7 1.053074e-02 9.613076e-04 1.834016e-02
## Dim 4 Dim 5
## hlr_books_since_corrected_0 1.606033e-01 5.713973e-03
## hlr_books_since_corrected_1 7.155724e-02 1.038813e-03
## hlr_books_since_corrected_2 1.170611e-02 1.394814e-05
## hlr_books_since_corrected_3 1.863311e-02 1.143191e-02
## hlr_books_since_corrected_4 6.507432e-02 4.537913e-02
## hlr_books_since_corrected_5 1.592886e-04 4.332670e-03
## hlr_books_since_corrected_6 4.913053e-04 2.139503e-02
## hlr_books_since_corrected_7 1.130439e-02 7.217051e-03
## hlr_dbooks_since_corrected_0 1.911231e-03 3.984504e-03
## hlr_dbooks_since_corrected_1 1.360611e-01 3.039946e-06
## hlr_dbooks_since_corrected_2 9.297457e-02 5.871705e-03
## hlr_dbooks_since_corrected_3 7.355248e-02 1.616878e-03
## hlr_dbooks_since_corrected_4 8.777309e-03 2.949512e-01
## hlr_dbooks_since_corrected_5 7.363600e-03 1.210648e-01
## hlr_dbooks_since_corrected_6 1.890813e-04 3.405134e-03
## hlr_dbooks_since_corrected_7 6.470650e-04 2.473154e-03
## hlr_games_since_corrected_0 1.462667e-01 4.869012e-03
## hlr_games_since_corrected_1 3.016784e-01 1.363741e-02
## hlr_games_since_corrected_2 5.485839e-02 2.242597e-02
## hlr_games_since_corrected_3 8.945445e-02 3.760963e-04
## hlr_games_since_corrected_4 5.523633e-04 1.724824e-03
## hlr_games_since_corrected_5 1.094607e-03 1.987059e-01
## hlr_games_since_corrected_7 7.427527e-05 1.220391e-04
## hlr_dgames_since_corrected_0 5.871587e-02 5.862148e-06
## hlr_dgames_since_corrected_1 2.466566e-01 1.120676e-02
## hlr_dgames_since_corrected_2 4.696795e-02 6.193866e-02
## hlr_dgames_since_corrected_3 9.660492e-02 2.787683e-03
## hlr_dgames_since_corrected_4 1.773305e-02 1.592852e-02
## hlr_dgames_since_corrected_5 1.076035e-02 5.508469e-01
## hlr_dgames_since_corrected_6 7.121436e-03 8.904107e-02
## hlr_dgames_since_corrected_7 2.020515e-03 8.206894e-03
## hlr_ad_books_since_corrected_0 1.335075e-01 4.721184e-03
## hlr_ad_books_since_corrected_1 1.901294e-01 7.308300e-04
## hlr_ad_books_since_corrected_2 1.452242e-03 3.956236e-04
## hlr_ad_books_since_corrected_3 1.908411e-02 1.174749e-02
## hlr_ad_books_since_corrected_4 6.087475e-02 4.001335e-04
## hlr_ad_books_since_corrected_5 1.316172e-02 2.086095e-01
## hlr_ad_books_since_corrected_6 2.244782e-02 4.935600e-04
## hlr_ad_books_since_corrected_7 3.196323e-02 1.963245e-02
## hlr_ad_dbooks_since_corrected_0 1.035001e-02 1.468054e-03
## hlr_ad_dbooks_since_corrected_1 1.599886e-01 7.027327e-04
## hlr_ad_dbooks_since_corrected_2 4.348676e-02 1.588361e-02
## hlr_ad_dbooks_since_corrected_3 5.651085e-02 2.925812e-05
## hlr_ad_dbooks_since_corrected_4 3.918113e-02 4.941920e-04
## hlr_ad_dbooks_since_corrected_5 2.287951e-04 3.269613e-02
## hlr_ad_dbooks_since_corrected_6 6.992691e-03 1.043906e-05
## hlr_ad_dbooks_since_corrected_7 4.828626e-03 2.137204e-02
## hlr_ad_news_since_corrected_0 3.406976e-02 2.122342e-03
## hlr_ad_news_since_corrected_1 7.200297e-02 2.201300e-03
## hlr_ad_news_since_corrected_2 3.970201e-02 1.399279e-03
## hlr_ad_news_since_corrected_3 2.479710e-02 4.531219e-03
## hlr_ad_news_since_corrected_4 3.113312e-03 4.262336e-05
## hlr_ad_news_since_corrected_5 2.508281e-03 1.567828e-03
## hlr_ad_news_since_corrected_6 4.523587e-04 1.952669e-04
## hlr_ad_news_since_corrected_7 9.088055e-03 2.502440e-03var_posf$contrib## Dim 1 Dim 2 Dim 3
## hlr_books_since_corrected_0 1.452831e+00 9.929516e+00 9.295283e-01
## hlr_books_since_corrected_1 1.325576e+00 4.911311e-01 4.646716e-02
## hlr_books_since_corrected_2 3.832371e-01 3.742879e-01 3.350304e-03
## hlr_books_since_corrected_3 4.629352e-03 3.460006e+00 2.639082e-01
## hlr_books_since_corrected_4 1.534691e-01 2.183104e+00 9.958533e-03
## hlr_books_since_corrected_5 2.630228e+00 7.632067e-02 5.853544e+00
## hlr_books_since_corrected_6 7.027489e-01 8.297153e-03 1.290213e-03
## hlr_books_since_corrected_7 9.213654e+00 2.401209e+00 1.390730e+00
## hlr_dbooks_since_corrected_0 1.093312e+00 3.597147e+00 1.600929e-01
## hlr_dbooks_since_corrected_1 1.007724e-01 7.324595e-01 1.151349e-01
## hlr_dbooks_since_corrected_2 6.459607e-02 3.942331e+00 1.706310e-03
## hlr_dbooks_since_corrected_3 8.519806e-04 1.099676e+00 2.488330e-01
## hlr_dbooks_since_corrected_4 1.439882e+00 9.879632e-02 2.221894e+00
## hlr_dbooks_since_corrected_5 4.001545e+00 7.557146e-03 1.397328e+01
## hlr_dbooks_since_corrected_6 1.147435e-05 1.183900e-01 1.270756e-02
## hlr_dbooks_since_corrected_7 9.471416e+00 2.221370e+00 6.128663e+00
## hlr_games_since_corrected_0 1.666115e+00 9.263754e+00 7.095975e-01
## hlr_games_since_corrected_1 6.214747e-01 1.427799e-02 4.902656e-02
## hlr_games_since_corrected_2 2.459919e-01 2.037171e+00 1.852663e-01
## hlr_games_since_corrected_3 7.704643e-02 3.865925e+00 1.630688e-01
## hlr_games_since_corrected_4 4.763302e+00 1.970798e-01 1.116035e+01
## hlr_games_since_corrected_5 2.803918e-01 3.499360e-01 1.841849e-01
## hlr_games_since_corrected_7 9.566108e+00 4.420503e+00 7.816342e+00
## hlr_dgames_since_corrected_0 1.014637e+00 5.397037e+00 5.962202e-01
## hlr_dgames_since_corrected_1 3.935057e-01 2.397382e-01 1.356923e-01
## hlr_dgames_since_corrected_2 7.715626e-01 2.379769e+00 1.760514e-01
## hlr_dgames_since_corrected_3 1.671497e-01 3.551905e+00 2.840300e-01
## hlr_dgames_since_corrected_4 3.002134e-01 4.056367e-01 1.642399e+00
## hlr_dgames_since_corrected_5 6.868664e-01 8.942218e-05 1.913400e+00
## hlr_dgames_since_corrected_6 3.423298e+00 1.012176e-03 1.615207e+01
## hlr_dgames_since_corrected_7 1.067021e+01 3.399431e+00 6.581069e+00
## hlr_ad_books_since_corrected_0 1.620121e+00 8.715836e+00 7.370454e-01
## hlr_ad_books_since_corrected_1 1.154245e+00 1.845705e-01 5.117865e-02
## hlr_ad_books_since_corrected_2 5.326154e-01 2.217736e-01 1.084589e-01
## hlr_ad_books_since_corrected_3 3.224253e-07 1.556649e+00 4.556830e-02
## hlr_ad_books_since_corrected_4 9.462664e-02 2.312126e+00 3.053744e-01
## hlr_ad_books_since_corrected_5 8.493254e-01 3.337086e-01 2.864982e-02
## hlr_ad_books_since_corrected_6 2.575400e-01 1.796843e-01 2.890103e-01
## hlr_ad_books_since_corrected_7 9.126431e+00 5.942459e-01 3.704348e-01
## hlr_ad_dbooks_since_corrected_0 1.769487e+00 5.540875e+00 3.313250e-01
## hlr_ad_dbooks_since_corrected_1 7.165824e-02 2.072736e+00 1.420219e-01
## hlr_ad_dbooks_since_corrected_2 1.957069e-01 2.778411e+00 5.042184e-01
## hlr_ad_dbooks_since_corrected_3 2.139348e-01 1.326171e+00 6.408800e-01
## hlr_ad_dbooks_since_corrected_4 1.803959e-01 1.283410e-01 4.732423e-01
## hlr_ad_dbooks_since_corrected_5 1.330104e+00 5.100202e-03 1.253541e-01
## hlr_ad_dbooks_since_corrected_6 3.381571e+00 2.021130e+00 3.231778e+00
## hlr_ad_dbooks_since_corrected_7 7.713481e+00 4.832824e-02 9.534698e+00
## hlr_ad_news_since_corrected_0 2.645972e-01 8.778895e-01 4.305360e-02
## hlr_ad_news_since_corrected_1 2.331185e-01 2.517877e+00 3.770865e-02
## hlr_ad_news_since_corrected_2 4.174443e-01 8.252568e-01 5.074874e-04
## hlr_ad_news_since_corrected_3 1.475570e-01 4.224298e-01 1.281267e-01
## hlr_ad_news_since_corrected_4 2.152659e-05 8.853040e-02 4.461885e-02
## hlr_ad_news_since_corrected_5 3.442779e+00 8.809612e-01 2.930696e+00
## hlr_ad_news_since_corrected_6 5.553473e-05 6.673799e-02 4.361439e-02
## hlr_ad_news_since_corrected_7 3.165484e-01 3.577050e-02 7.425821e-01
## Dim 4 Dim 5
## hlr_books_since_corrected_0 7.348580455 3.030662e-01
## hlr_books_since_corrected_1 2.632845524 4.430570e-02
## hlr_books_since_corrected_2 0.337757138 4.665075e-04
## hlr_books_since_corrected_3 0.769078451 5.469584e-01
## hlr_books_since_corrected_4 2.987778956 2.415157e+00
## hlr_books_since_corrected_5 0.007538887 2.376996e-01
## hlr_books_since_corrected_6 0.023175476 1.169878e+00
## hlr_books_since_corrected_7 0.512801208 3.795002e-01
## hlr_dbooks_since_corrected_0 0.053492051 1.292709e-01
## hlr_dbooks_since_corrected_1 4.150415767 1.074915e-04
## hlr_dbooks_since_corrected_2 3.895985721 2.852120e-01
## hlr_dbooks_since_corrected_3 3.440648225 8.767397e-02
## hlr_dbooks_since_corrected_4 0.421627146 1.642358e+01
## hlr_dbooks_since_corrected_5 0.353139228 6.730138e+00
## hlr_dbooks_since_corrected_6 0.009112446 1.902265e-01
## hlr_dbooks_since_corrected_7 0.030471983 1.350064e-01
## hlr_games_since_corrected_0 6.405108716 2.471567e-01
## hlr_games_since_corrected_1 5.976827096 3.131906e-01
## hlr_games_since_corrected_2 2.005496950 9.503433e-01
## hlr_games_since_corrected_3 4.184512532 2.039353e-02
## hlr_games_since_corrected_4 0.026142508 9.462754e-02
## hlr_games_since_corrected_5 0.052666648 1.108252e+01
## hlr_games_since_corrected_7 0.003544532 6.750939e-03
## hlr_dgames_since_corrected_0 2.174214313 2.516251e-04
## hlr_dgames_since_corrected_1 5.216400754 2.747316e-01
## hlr_dgames_since_corrected_2 1.923823741 2.940870e+00
## hlr_dgames_since_corrected_3 4.556973120 1.524302e-01
## hlr_dgames_since_corrected_4 0.850431170 8.854857e-01
## hlr_dgames_since_corrected_5 0.518576514 3.077285e+01
## hlr_dgames_since_corrected_6 0.343205298 4.974245e+00
## hlr_dgames_since_corrected_7 0.096580999 4.547354e-01
## hlr_ad_books_since_corrected_0 5.919849400 2.426646e-01
## hlr_ad_books_since_corrected_1 6.831112986 3.043749e-02
## hlr_ad_books_since_corrected_2 0.049893781 1.575578e-02
## hlr_ad_books_since_corrected_3 0.810198869 5.781160e-01
## hlr_ad_books_since_corrected_4 2.699244724 2.056650e-02
## hlr_ad_books_since_corrected_5 0.613611346 1.127367e+01
## hlr_ad_books_since_corrected_6 1.051832143 2.680789e-02
## hlr_ad_books_since_corrected_7 1.392151040 9.911987e-01
## hlr_ad_dbooks_since_corrected_0 0.281541824 4.629078e-02
## hlr_ad_dbooks_since_corrected_1 5.219912248 2.657753e-02
## hlr_ad_dbooks_since_corrected_2 1.873542772 7.932428e-01
## hlr_ad_dbooks_since_corrected_3 2.563501527 1.538504e-03
## hlr_ad_dbooks_since_corrected_4 1.848221948 2.702236e-02
## hlr_ad_dbooks_since_corrected_5 0.010936448 1.811658e+00
## hlr_ad_dbooks_since_corrected_6 0.335901175 5.812714e-04
## hlr_ad_dbooks_since_corrected_7 0.227772251 1.168621e+00
## hlr_ad_news_since_corrected_0 0.385706957 2.785186e-02
## hlr_ad_news_since_corrected_1 2.751139506 9.749714e-02
## hlr_ad_news_since_corrected_2 1.900884623 7.766009e-02
## hlr_ad_news_since_corrected_3 1.193103780 2.527218e-01
## hlr_ad_news_since_corrected_4 0.150285472 2.385022e-03
## hlr_ad_news_since_corrected_5 0.120882279 8.758611e-02
## hlr_ad_news_since_corrected_6 0.021836209 1.092630e-02
## hlr_ad_news_since_corrected_7 0.437983141 1.397979e-01#Correlação entre variáveis e dimensões principais correlação entre as variáveis e as dimensões principais do MCA
fviz_mca_var(res.mca_posf, choice = "mca.cor",
repel = TRUE, # Avoid text overlapping (slow)
ggtheme = theme_minimal())
head(round(var_posf$coord, 2), 4)## Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_since_corrected_0 -0.95 -2.23 0.65 1.68 -0.32
## hlr_books_since_corrected_1 -0.43 -0.23 -0.07 -0.48 0.06
## hlr_books_since_corrected_2 -0.18 0.16 0.01 -0.13 0.00
## hlr_books_since_corrected_3 0.03 0.80 -0.21 0.33 -0.26para visualizar apenas categorias de variáveis:
fviz_mca_var(res.mca_posf,
repel = TRUE, # Avoid text overlapping (slow)
ggtheme = theme_minimal())## Warning: ggrepel: 29 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
head(var_posf$cos2, 10)## Dim 1 Dim 2 Dim 3
## hlr_books_since_corrected_0 0.0509062767 0.2810625202 2.418014e-02
## hlr_books_since_corrected_1 0.0577614215 0.0172881857 1.503209e-03
## hlr_books_since_corrected_2 0.0212951521 0.0168010944 1.382093e-04
## hlr_books_since_corrected_3 0.0001798209 0.1085713787 7.610491e-03
## hlr_books_since_corrected_4 0.0053590448 0.0615827968 2.581675e-04
## hlr_books_since_corrected_5 0.0890996645 0.0020885435 1.472114e-01
## hlr_books_since_corrected_6 0.0238851582 0.0002278115 3.255585e-05
## hlr_books_since_corrected_7 0.3256381841 0.0685570288 3.649102e-02
## hlr_dbooks_since_corrected_0 0.0626286864 0.1664585047 6.808337e-03
## hlr_dbooks_since_corrected_1 0.0052965034 0.0310992387 4.492563e-03
## Dim 4 Dim 5
## hlr_books_since_corrected_0 0.1606033153 5.713973e-03
## hlr_books_since_corrected_1 0.0715572370 1.038813e-03
## hlr_books_since_corrected_2 0.0117061075 1.394814e-05
## hlr_books_since_corrected_3 0.0186331112 1.143191e-02
## hlr_books_since_corrected_4 0.0650743223 4.537913e-02
## hlr_books_since_corrected_5 0.0001592886 4.332670e-03
## hlr_books_since_corrected_6 0.0004913053 2.139503e-02
## hlr_books_since_corrected_7 0.0113043934 7.217051e-03
## hlr_dbooks_since_corrected_0 0.0019112315 3.984504e-03
## hlr_dbooks_since_corrected_1 0.1360610806 3.039946e-06Se uma categoria de variável é bem representada por duas dimensões, a soma do cos2 é próxima de um. Para alguns dos itens de linha, são necessárias mais de 2 dimensões para representar perfeitamente os dados.
!!! OS COSSENOS SAO MUITO BAIXOS!!
fviz_mca_var(res.mca_posf, col.var = "cos2",
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE, # Avoid text overlapping
ggtheme = theme_minimal())## Warning: ggrepel: 32 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
# Contributions of rows to dimension 1
fviz_contrib(res.mca_pref, choice = "var", axes = 1, top = 15)
fviz_contrib(res.mca_posf, choice = "var", axes = 1, top = 15)
# Contributions of rows to dimension 2
fviz_contrib(res.mca_pref, choice = "var", axes = 2, top = 15)
fviz_contrib(res.mca_posf, choice = "var", axes = 2, top = 15)
fviz_cos2(res.mca_posf, choice = "var", axes = 1:2)
head(round(var_posf$contrib,2), 49)## Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_since_corrected_0 1.45 9.93 0.93 7.35 0.30
## hlr_books_since_corrected_1 1.33 0.49 0.05 2.63 0.04
## hlr_books_since_corrected_2 0.38 0.37 0.00 0.34 0.00
## hlr_books_since_corrected_3 0.00 3.46 0.26 0.77 0.55
## hlr_books_since_corrected_4 0.15 2.18 0.01 2.99 2.42
## hlr_books_since_corrected_5 2.63 0.08 5.85 0.01 0.24
## hlr_books_since_corrected_6 0.70 0.01 0.00 0.02 1.17
## hlr_books_since_corrected_7 9.21 2.40 1.39 0.51 0.38
## hlr_dbooks_since_corrected_0 1.09 3.60 0.16 0.05 0.13
## hlr_dbooks_since_corrected_1 0.10 0.73 0.12 4.15 0.00
## hlr_dbooks_since_corrected_2 0.06 3.94 0.00 3.90 0.29
## hlr_dbooks_since_corrected_3 0.00 1.10 0.25 3.44 0.09
## hlr_dbooks_since_corrected_4 1.44 0.10 2.22 0.42 16.42
## hlr_dbooks_since_corrected_5 4.00 0.01 13.97 0.35 6.73
## hlr_dbooks_since_corrected_6 0.00 0.12 0.01 0.01 0.19
## hlr_dbooks_since_corrected_7 9.47 2.22 6.13 0.03 0.14
## hlr_games_since_corrected_0 1.67 9.26 0.71 6.41 0.25
## hlr_games_since_corrected_1 0.62 0.01 0.05 5.98 0.31
## hlr_games_since_corrected_2 0.25 2.04 0.19 2.01 0.95
## hlr_games_since_corrected_3 0.08 3.87 0.16 4.18 0.02
## hlr_games_since_corrected_4 4.76 0.20 11.16 0.03 0.09
## hlr_games_since_corrected_5 0.28 0.35 0.18 0.05 11.08
## hlr_games_since_corrected_7 9.57 4.42 7.82 0.00 0.01
## hlr_dgames_since_corrected_0 1.01 5.40 0.60 2.17 0.00
## hlr_dgames_since_corrected_1 0.39 0.24 0.14 5.22 0.27
## hlr_dgames_since_corrected_2 0.77 2.38 0.18 1.92 2.94
## hlr_dgames_since_corrected_3 0.17 3.55 0.28 4.56 0.15
## hlr_dgames_since_corrected_4 0.30 0.41 1.64 0.85 0.89
## hlr_dgames_since_corrected_5 0.69 0.00 1.91 0.52 30.77
## hlr_dgames_since_corrected_6 3.42 0.00 16.15 0.34 4.97
## hlr_dgames_since_corrected_7 10.67 3.40 6.58 0.10 0.45
## hlr_ad_books_since_corrected_0 1.62 8.72 0.74 5.92 0.24
## hlr_ad_books_since_corrected_1 1.15 0.18 0.05 6.83 0.03
## hlr_ad_books_since_corrected_2 0.53 0.22 0.11 0.05 0.02
## hlr_ad_books_since_corrected_3 0.00 1.56 0.05 0.81 0.58
## hlr_ad_books_since_corrected_4 0.09 2.31 0.31 2.70 0.02
## hlr_ad_books_since_corrected_5 0.85 0.33 0.03 0.61 11.27
## hlr_ad_books_since_corrected_6 0.26 0.18 0.29 1.05 0.03
## hlr_ad_books_since_corrected_7 9.13 0.59 0.37 1.39 0.99
## hlr_ad_dbooks_since_corrected_0 1.77 5.54 0.33 0.28 0.05
## hlr_ad_dbooks_since_corrected_1 0.07 2.07 0.14 5.22 0.03
## hlr_ad_dbooks_since_corrected_2 0.20 2.78 0.50 1.87 0.79
## hlr_ad_dbooks_since_corrected_3 0.21 1.33 0.64 2.56 0.00
## hlr_ad_dbooks_since_corrected_4 0.18 0.13 0.47 1.85 0.03
## hlr_ad_dbooks_since_corrected_5 1.33 0.01 0.13 0.01 1.81
## hlr_ad_dbooks_since_corrected_6 3.38 2.02 3.23 0.34 0.00
## hlr_ad_dbooks_since_corrected_7 7.71 0.05 9.53 0.23 1.17
## hlr_ad_news_since_corrected_0 0.26 0.88 0.04 0.39 0.03
## hlr_ad_news_since_corrected_1 0.23 2.52 0.04 2.75 0.1015 principais categorias de variáveis que contribuem para as dimensões:
# Contributions of rows to dimension 1
fviz_contrib(res.mca_posf, choice = "var", axes = 1, top = 15)
# Contributions of rows to dimension 2
fviz_contrib(res.mca_posf, choice = "var", axes = 2, top = 15)
fviz_contrib(res.mca_posf, choice = "var", axes = 1:2, top = 15)
fviz_mca_var(res.mca_posf, alpha.var="contrib",
repel = TRUE,
ggtheme = theme_minimal())## Warning: ggrepel: 32 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
##Gráfico de indivíduos Resultados
lista contendo as coordenadas, o cos2 e as contribuições dos indivíduos:
ind_posf <- get_mca_ind(res.mca_posf)
ind_posf## Multiple Correspondence Analysis Results for individuals
## ===================================================
## Name Description
## 1 "$coord" "Coordinates for the individuals"
## 2 "$cos2" "Cos2 for the individuals"
## 3 "$contrib" "contributions of the individuals"colorir os indivíduos por seus valores de cos2:
fviz_mca_ind(res.mca_posf, col.ind = "cos2",
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE, # Avoid text overlapping (slow if many points)
ggtheme = theme_minimal())## Warning: ggrepel: 576 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
# Cos2 of individuals
fviz_cos2(res.mca_posf, choice = "ind", axes = 1:2, top = 20)
# Contribution of individuals to the dimensions
fviz_contrib(res.mca_posf, choice = "ind", axes = 1:2, top = 20)
PANDEMIA COMPLETA
db_bloco_2f <- as.data.frame(lapply(db_bloco_2, as.factor))summary(db_bloco_2f)## hlr_books_b4_corrected hlr_dbooks_b4_corrected hlr_games_b4_corrected
## 2 :240 0 :345 1 :404
## 1 :160 1 :195 2 :117
## 3 : 92 2 : 43 0 : 50
## 7 : 46 3 : 10 3 : 18
## 4 : 28 7 : 7 4 : 10
## 0 : 21 4 : 6 5 : 7
## (Other): 28 (Other): 9 (Other): 9
## hlr_dgames_b4_corrected hlr_ad_books_b4_corrected hlr_ad_dbooks_b4_corrected
## 1 :336 2 :181 0 :285
## 0 :172 1 :147 1 :179
## 2 : 74 3 : 77 2 : 80
## 3 : 19 7 : 67 3 : 28
## 7 : 5 4 : 61 7 : 16
## 4 : 4 0 : 39 4 : 13
## (Other): 5 (Other): 43 (Other): 14
## hlr_ad_news_b4_corrected hlr_books_since_corrected hlr_dbooks_since_corrected
## 0:475 2 :248 0 :259
## 1:123 1 :147 1 :227
## 2: 9 3 : 90 2 : 82
## 3: 1 7 : 38 3 : 20
## 5: 2 0 : 33 7 : 16
## 6: 1 4 : 31 5 : 5
## 7: 4 (Other): 28 (Other): 6
## hlr_games_since_corrected hlr_dgames_since_corrected
## 0: 58 1 :346
## 1:363 0 :144
## 2:150 2 : 94
## 3: 20 3 : 15
## 4: 13 7 : 7
## 5: 3 4 : 5
## 7: 8 (Other): 4
## hlr_ad_books_since_corrected hlr_ad_dbooks_since_corrected
## 2 :178 0 :269
## 1 :158 1 :200
## 3 : 75 2 : 67
## 7 : 61 3 : 38
## 0 : 51 4 : 15
## 4 : 51 7 : 15
## (Other): 41 (Other): 11
## hlr_ad_news_since_corrected
## 0 :471
## 1 :129
## 2 : 6
## 3 : 3
## 5 : 2
## 7 : 2
## (Other): 2for (i in 1:14) {
plot(db_bloco_2f[,i], main=colnames(db_bloco_2f)[i],
ylab = "Count", col="steelblue", las = 2)
}
MCA(db_bloco_2f,ncp = 5, graph = TRUE) 
## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 14 variables
## *The results are available in the following objects:
##
## name description
## 1 "$eig" "eigenvalues"
## 2 "$var" "results for the variables"
## 3 "$var$coord" "coord. of the categories"
## 4 "$var$cos2" "cos2 for the categories"
## 5 "$var$contrib" "contributions of the categories"
## 6 "$var$v.test" "v-test for the categories"
## 7 "$ind" "results for the individuals"
## 8 "$ind$coord" "coord. for the individuals"
## 9 "$ind$cos2" "cos2 for the individuals"
## 10 "$ind$contrib" "contributions of the individuals"
## 11 "$call" "intermediate results"
## 12 "$call$marge.col" "weights of columns"
## 13 "$call$marge.li" "weights of rows"res.mca_2f <- MCA(db_bloco_2f, graph = FALSE)
print(res.mca_2f)## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 14 variables
## *The results are available in the following objects:
##
## name description
## 1 "$eig" "eigenvalues"
## 2 "$var" "results for the variables"
## 3 "$var$coord" "coord. of the categories"
## 4 "$var$cos2" "cos2 for the categories"
## 5 "$var$contrib" "contributions of the categories"
## 6 "$var$v.test" "v-test for the categories"
## 7 "$ind" "results for the individuals"
## 8 "$ind$coord" "coord. for the individuals"
## 9 "$ind$cos2" "cos2 for the individuals"
## 10 "$ind$contrib" "contributions of the individuals"
## 11 "$call" "intermediate results"
## 12 "$call$marge.col" "weights of columns"
## 13 "$call$marge.li" "weights of rows"#Visualização e interpretação Autovalores/variâncias retidos por cada dimensão (eixo)
eig.val_2f <- get_eigenvalue(res.mca_2f)
eig.val_2f## eigenvalue variance.percent cumulative.variance.percent
## Dim.1 4.359489e-01 6.357588e+00 6.357588
## Dim.2 3.200652e-01 4.667618e+00 11.025206
## Dim.3 2.873070e-01 4.189893e+00 15.215099
## Dim.4 2.355143e-01 3.434584e+00 18.649683
## Dim.5 2.039216e-01 2.973856e+00 21.623539
## Dim.6 2.000488e-01 2.917378e+00 24.540917
## Dim.7 1.862034e-01 2.715466e+00 27.256384
## Dim.8 1.822856e-01 2.658331e+00 29.914715
## Dim.9 1.774082e-01 2.587203e+00 32.501917
## Dim.10 1.688915e-01 2.463002e+00 34.964919
## Dim.11 1.638510e-01 2.389494e+00 37.354413
## Dim.12 1.589896e-01 2.318598e+00 39.673011
## Dim.13 1.536351e-01 2.240511e+00 41.913522
## Dim.14 1.474554e-01 2.150391e+00 44.063913
## Dim.15 1.402380e-01 2.045137e+00 46.109051
## Dim.16 1.370846e-01 1.999150e+00 48.108201
## Dim.17 1.346635e-01 1.963842e+00 50.072044
## Dim.18 1.317908e-01 1.921949e+00 51.993992
## Dim.19 1.264186e-01 1.843605e+00 53.837597
## Dim.20 1.225926e-01 1.787809e+00 55.625406
## Dim.21 1.207113e-01 1.760373e+00 57.385779
## Dim.22 1.162337e-01 1.695074e+00 59.080853
## Dim.23 1.112161e-01 1.621902e+00 60.702755
## Dim.24 1.069881e-01 1.560243e+00 62.262998
## Dim.25 1.052416e-01 1.534773e+00 63.797772
## Dim.26 9.827960e-02 1.433244e+00 65.231016
## Dim.27 9.654930e-02 1.408011e+00 66.639026
## Dim.28 9.085067e-02 1.324906e+00 67.963932
## Dim.29 8.805686e-02 1.284163e+00 69.248094
## Dim.30 8.764701e-02 1.278186e+00 70.526280
## Dim.31 8.434210e-02 1.229989e+00 71.756269
## Dim.32 8.334194e-02 1.215403e+00 72.971672
## Dim.33 8.058208e-02 1.175155e+00 74.146828
## Dim.34 7.620752e-02 1.111360e+00 75.258187
## Dim.35 7.341840e-02 1.070685e+00 76.328872
## Dim.36 6.968805e-02 1.016284e+00 77.345156
## Dim.37 6.652981e-02 9.702264e-01 78.315383
## Dim.38 6.428207e-02 9.374469e-01 79.252830
## Dim.39 6.376538e-02 9.299118e-01 80.182741
## Dim.40 6.217417e-02 9.067067e-01 81.089448
## Dim.41 5.832433e-02 8.505631e-01 81.940011
## Dim.42 5.703154e-02 8.317100e-01 82.771721
## Dim.43 5.375313e-02 7.838997e-01 83.555621
## Dim.44 5.355438e-02 7.810013e-01 84.336622
## Dim.45 5.142268e-02 7.499140e-01 85.086536
## Dim.46 4.937415e-02 7.200397e-01 85.806576
## Dim.47 4.719322e-02 6.882345e-01 86.494810
## Dim.48 4.544652e-02 6.627618e-01 87.157572
## Dim.49 4.333628e-02 6.319874e-01 87.789560
## Dim.50 4.263825e-02 6.218078e-01 88.411367
## Dim.51 4.038567e-02 5.889577e-01 89.000325
## Dim.52 3.789926e-02 5.526975e-01 89.553023
## Dim.53 3.736408e-02 5.448928e-01 90.097915
## Dim.54 3.629375e-02 5.292839e-01 90.627199
## Dim.55 3.491706e-02 5.092071e-01 91.136406
## Dim.56 3.464096e-02 5.051806e-01 91.641587
## Dim.57 3.428313e-02 4.999623e-01 92.141549
## Dim.58 3.234372e-02 4.716792e-01 92.613228
## Dim.59 2.914138e-02 4.249784e-01 93.038207
## Dim.60 2.866478e-02 4.180281e-01 93.456235
## Dim.61 2.724859e-02 3.973752e-01 93.853610
## Dim.62 2.643130e-02 3.854565e-01 94.239067
## Dim.63 2.478812e-02 3.614934e-01 94.600560
## Dim.64 2.460497e-02 3.588225e-01 94.959383
## Dim.65 2.340509e-02 3.413242e-01 95.300707
## Dim.66 2.253586e-02 3.286479e-01 95.629355
## Dim.67 2.195267e-02 3.201430e-01 95.949498
## Dim.68 2.031717e-02 2.962920e-01 96.245790
## Dim.69 1.894449e-02 2.762738e-01 96.522064
## Dim.70 1.790246e-02 2.610775e-01 96.783141
## Dim.71 1.769904e-02 2.581110e-01 97.041252
## Dim.72 1.727591e-02 2.519404e-01 97.293192
## Dim.73 1.588709e-02 2.316868e-01 97.524879
## Dim.74 1.538936e-02 2.244282e-01 97.749307
## Dim.75 1.454687e-02 2.121418e-01 97.961449
## Dim.76 1.411401e-02 2.058293e-01 98.167279
## Dim.77 1.378827e-02 2.010790e-01 98.368358
## Dim.78 1.241819e-02 1.810986e-01 98.549456
## Dim.79 1.209809e-02 1.764305e-01 98.725887
## Dim.80 1.099138e-02 1.602909e-01 98.886178
## Dim.81 1.057651e-02 1.542407e-01 99.040418
## Dim.82 1.030433e-02 1.502715e-01 99.190690
## Dim.83 9.331472e-03 1.360840e-01 99.326774
## Dim.84 8.293444e-03 1.209461e-01 99.447720
## Dim.85 7.998659e-03 1.166471e-01 99.564367
## Dim.86 6.723968e-03 9.805787e-02 99.662425
## Dim.87 6.004203e-03 8.756129e-02 99.749986
## Dim.88 4.641065e-03 6.768220e-02 99.817668
## Dim.89 3.181900e-03 4.640270e-02 99.864071
## Dim.90 2.755497e-03 4.018433e-02 99.904255
## Dim.91 2.389690e-03 3.484965e-02 99.939105
## Dim.92 1.868539e-03 2.724952e-02 99.966354
## Dim.93 1.569995e-03 2.289576e-02 99.989250
## Dim.94 7.371324e-04 1.074985e-02 100.000000
## Dim.95 1.842087e-30 2.686377e-29 100.000000
## Dim.96 9.133450e-31 1.331961e-29 100.000000Porcentagens de inércia explicadas por cada dimensão MCA
fviz_screeplot(res.mca_2f, addlabels = TRUE, ylim = c(0, 45))
Biplot de indivíduos e categorias de variáveis:
fviz_mca_biplot(res.mca_2f,
repel = TRUE, # Avoid text overlapping (slow if many point)
ggtheme = theme_minimal())## Warning: ggrepel: 591 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps## Warning: ggrepel: 92 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
#Gráfico de variáveis #Resultados Usada para extrair os resultados para categorias de variáveis. Esta função retorna uma lista contendo as coordenadas, o cos2 e a contribuição das categorias de variáveis:
var_2f <- get_mca_var(res.mca_2f)
var_2f## Multiple Correspondence Analysis Results for variables
## ===================================================
## Name Description
## 1 "$coord" "Coordinates for categories"
## 2 "$cos2" "Cos2 for categories"
## 3 "$contrib" "contributions of categories"# Coordinates
var_2f$coord## Dim 1 Dim 2 Dim 3
## hlr_books_b4_corrected_0 -0.66736584 -1.55948517 -0.459980035
## hlr_books_b4_corrected_1 -0.44086864 -0.45354029 -0.176540915
## hlr_books_b4_corrected_2 -0.24166041 0.16773757 0.042682668
## hlr_books_b4_corrected_3 -0.08624307 0.81804543 0.235929786
## hlr_books_b4_corrected_4 0.38222390 0.66696694 0.079310359
## hlr_books_b4_corrected_5 2.00785569 0.87600693 -2.000160841
## hlr_books_b4_corrected_6 0.95028163 -0.26775820 0.900959693
## hlr_books_b4_corrected_7 2.00054108 -0.96205888 0.794165123
## hlr_dbooks_b4_corrected_0 -0.23716372 -0.36414190 -0.070452947
## hlr_dbooks_b4_corrected_1 0.03827739 0.42484245 0.076321461
## hlr_dbooks_b4_corrected_2 0.02130420 1.03375187 0.193813018
## hlr_dbooks_b4_corrected_3 0.08913899 1.22735814 0.524750895
## hlr_dbooks_b4_corrected_4 4.08437583 -0.78098465 0.874416415
## hlr_dbooks_b4_corrected_5 3.20356247 -0.17930271 -5.080287121
## hlr_dbooks_b4_corrected_6 2.43402962 -0.62977291 3.958884389
## hlr_dbooks_b4_corrected_7 3.07431474 -0.89845602 1.314383456
## hlr_games_b4_corrected_0 -0.58677048 -1.27904227 -0.336649921
## hlr_games_b4_corrected_1 -0.19987687 -0.02808715 -0.006447692
## hlr_games_b4_corrected_2 0.14118997 0.68048276 0.127407408
## hlr_games_b4_corrected_3 0.53979386 1.67282640 -0.058380673
## hlr_games_b4_corrected_4 3.39728353 -0.23454537 -2.959958466
## hlr_games_b4_corrected_5 2.71872709 -0.97805319 0.972768287
## hlr_games_b4_corrected_6 4.18421216 -2.80183829 4.693804612
## hlr_games_b4_corrected_7 3.04945058 -2.80511615 2.381723603
## hlr_dgames_b4_corrected_0 -0.26741994 -0.46988418 -0.110288992
## hlr_dgames_b4_corrected_1 -0.14968060 0.04270191 0.014187845
## hlr_dgames_b4_corrected_2 0.38583228 0.82580672 0.123907391
## hlr_dgames_b4_corrected_3 0.89325829 1.09969149 1.103944845
## hlr_dgames_b4_corrected_4 1.83189889 0.35613303 -1.676717605
## hlr_dgames_b4_corrected_5 4.66108511 -0.29841182 -6.742481797
## hlr_dgames_b4_corrected_6 6.42675168 -3.52709695 8.744782940
## hlr_dgames_b4_corrected_7 3.67334534 -2.44707742 1.798101273
## hlr_ad_books_b4_corrected_0 -0.67849708 -1.40159174 -0.430183742
## hlr_ad_books_b4_corrected_1 -0.43505448 -0.31259855 -0.106505248
## hlr_ad_books_b4_corrected_2 -0.32622231 0.07280503 0.035170122
## hlr_ad_books_b4_corrected_3 -0.05897572 0.56706681 0.052921364
## hlr_ad_books_b4_corrected_4 -0.02373630 0.84204775 0.333710840
## hlr_ad_books_b4_corrected_5 0.59457578 1.20159439 -0.188117845
## hlr_ad_books_b4_corrected_6 1.03825135 -0.02960114 0.374588631
## hlr_ad_books_b4_corrected_7 1.82597665 -0.57210354 0.002379049
## hlr_ad_dbooks_b4_corrected_0 -0.34634337 -0.48947531 -0.138252175
## hlr_ad_dbooks_b4_corrected_1 -0.05673871 0.33158333 0.148810408
## hlr_ad_dbooks_b4_corrected_2 0.21883890 0.41421569 0.387491385
## hlr_ad_dbooks_b4_corrected_3 0.16698303 1.47226211 0.415771406
## hlr_ad_dbooks_b4_corrected_4 0.38466840 0.74066917 0.187820061
## hlr_ad_dbooks_b4_corrected_5 1.50751386 0.56959603 0.696511755
## hlr_ad_dbooks_b4_corrected_6 2.60878983 -1.15911888 0.671024141
## hlr_ad_dbooks_b4_corrected_7 3.37299456 -0.09026883 -2.619750200
## hlr_ad_news_b4_corrected_0 -0.16664027 -0.15439106 -0.003542608
## hlr_ad_news_b4_corrected_1 0.41221068 0.53909272 -0.090512689
## hlr_ad_news_b4_corrected_2 1.16610868 1.17181157 0.079443811
## hlr_ad_news_b4_corrected_3 0.28295981 3.22162490 1.315523832
## hlr_ad_news_b4_corrected_5 2.39142820 -1.37758314 1.724122065
## hlr_ad_news_b4_corrected_6 -0.08015465 1.58365384 0.743102202
## hlr_ad_news_b4_corrected_7 3.24289413 -1.39226650 1.648483798
## hlr_books_since_corrected_0 -0.49524983 -1.65546769 -0.351231928
## hlr_books_since_corrected_1 -0.42391718 -0.34411242 -0.120423629
## hlr_books_since_corrected_2 -0.23857199 0.09813368 0.008233037
## hlr_books_since_corrected_3 -0.03751474 0.84397983 0.232335573
## hlr_books_since_corrected_4 0.34158897 1.23658615 0.079960861
## hlr_books_since_corrected_5 2.25683088 0.65553765 -2.532925251
## hlr_books_since_corrected_6 1.30887104 -0.07742338 -0.159029954
## hlr_books_since_corrected_7 2.14842436 -1.07303124 1.030937454
## hlr_dbooks_since_corrected_0 -0.27893310 -0.43008455 -0.115908167
## hlr_dbooks_since_corrected_1 -0.04565644 0.17086655 0.039190626
## hlr_dbooks_since_corrected_2 0.04068519 0.83368236 0.105957577
## hlr_dbooks_since_corrected_3 -0.04910807 0.98273760 0.418548322
## hlr_dbooks_since_corrected_4 2.75816048 0.91815800 -1.954135105
## hlr_dbooks_since_corrected_5 4.43638622 -0.15730921 -6.136325328
## hlr_dbooks_since_corrected_6 0.43766858 0.81888911 1.565935113
## hlr_dbooks_since_corrected_7 2.88523440 -1.24596107 2.464422011
## hlr_games_since_corrected_0 -0.50180215 -1.41538388 -0.302301577
## hlr_games_since_corrected_1 -0.21438697 -0.03299133 -0.028643630
## hlr_games_since_corrected_2 0.13791506 0.53467568 0.180260036
## hlr_games_since_corrected_3 0.32774157 1.78953297 0.281270056
## hlr_games_since_corrected_4 2.96209566 0.36144453 -2.794634719
## hlr_games_since_corrected_5 2.11123220 -1.30921166 -1.278577217
## hlr_games_since_corrected_7 4.35549563 -2.83687969 4.429088201
## hlr_dgames_since_corrected_0 -0.27240507 -0.67836542 -0.166658711
## hlr_dgames_since_corrected_1 -0.17944868 0.05221801 -0.011542401
## hlr_dgames_since_corrected_2 0.38280534 0.63034445 0.251193494
## hlr_dgames_since_corrected_3 0.53587787 2.01128761 0.623910634
## hlr_dgames_since_corrected_4 0.83677631 1.15268688 -0.836241235
## hlr_dgames_since_corrected_5 3.10107451 0.61726955 -3.823183882
## hlr_dgames_since_corrected_6 6.59643853 0.01858798 -11.139390455
## hlr_dgames_since_corrected_7 4.81639912 -2.40566474 4.161147419
## hlr_ad_books_since_corrected_0 -0.58310306 -1.47967835 -0.398350260
## hlr_ad_books_since_corrected_1 -0.39362110 -0.25896313 -0.088609780
## hlr_ad_books_since_corrected_2 -0.27497958 0.11357475 0.070810476
## hlr_ad_books_since_corrected_3 -0.04421572 0.65538180 0.042791379
## hlr_ad_books_since_corrected_4 0.05321534 0.93674647 0.312654770
## hlr_ad_books_since_corrected_5 0.86257757 0.94399281 0.001973470
## hlr_ad_books_since_corrected_6 0.60555334 0.27915261 0.443360795
## hlr_ad_books_since_corrected_7 1.81961854 -0.43993412 -0.096886464
## hlr_ad_dbooks_since_corrected_0 -0.35636071 -0.57196078 -0.158745721
## hlr_ad_dbooks_since_corrected_1 -0.05858691 0.36593139 0.049315594
## hlr_ad_dbooks_since_corrected_2 0.16359319 0.75937492 0.423714803
## hlr_ad_dbooks_since_corrected_3 0.30059341 0.88156011 0.580362409
## hlr_ad_dbooks_since_corrected_4 0.48795979 0.51402221 0.534606053
## hlr_ad_dbooks_since_corrected_5 1.88376273 0.02169769 -0.057217255
## hlr_ad_dbooks_since_corrected_6 3.30905507 -2.05151414 3.352391036
## hlr_ad_dbooks_since_corrected_7 3.43021091 -0.22415951 -2.575421167
## hlr_ad_news_since_corrected_0 -0.12260893 -0.17134357 -0.039585639
## hlr_ad_news_since_corrected_1 0.25837996 0.52944991 0.017550248
## hlr_ad_news_since_corrected_2 1.18311218 1.66652593 0.360946064
## hlr_ad_news_since_corrected_3 0.81703612 2.14577402 0.824089430
## hlr_ad_news_since_corrected_4 0.31303187 1.13418849 0.385506825
## hlr_ad_news_since_corrected_5 4.98780977 -2.42149422 5.997231611
## hlr_ad_news_since_corrected_6 -0.08015465 1.58365384 0.743102202
## hlr_ad_news_since_corrected_7 2.32975738 -0.95377375 -0.690081503
## Dim 4 Dim 5
## hlr_books_b4_corrected_0 1.54798045 -0.253300696
## hlr_books_b4_corrected_1 -0.10875251 -0.298469611
## hlr_books_b4_corrected_2 -0.30103067 0.213597865
## hlr_books_b4_corrected_3 0.40671313 0.163513896
## hlr_books_b4_corrected_4 0.97431465 0.005169687
## hlr_books_b4_corrected_5 0.59354080 -0.149731755
## hlr_books_b4_corrected_6 -0.51186686 -0.767696999
## hlr_books_b4_corrected_7 -0.33335056 -0.092192473
## hlr_dbooks_b4_corrected_0 0.13355340 0.107606672
## hlr_dbooks_b4_corrected_1 -0.44184054 -0.107601476
## hlr_dbooks_b4_corrected_2 0.77889802 -0.396109345
## hlr_dbooks_b4_corrected_3 0.71502854 0.233905223
## hlr_dbooks_b4_corrected_4 0.27488376 -3.334907026
## hlr_dbooks_b4_corrected_5 -0.68567757 0.457109023
## hlr_dbooks_b4_corrected_6 -0.96980920 7.762239559
## hlr_dbooks_b4_corrected_7 0.68775311 -1.066899282
## hlr_games_b4_corrected_0 1.05403809 -0.152776883
## hlr_games_b4_corrected_1 -0.33497082 0.046608711
## hlr_games_b4_corrected_2 0.48135415 0.043298767
## hlr_games_b4_corrected_3 1.16119144 -0.931037668
## hlr_games_b4_corrected_4 -0.42949976 0.234480959
## hlr_games_b4_corrected_5 0.83762518 4.032062037
## hlr_games_b4_corrected_6 -0.63727488 -4.727159889
## hlr_games_b4_corrected_7 0.95831165 -2.647686138
## hlr_dgames_b4_corrected_0 0.42477826 0.140272696
## hlr_dgames_b4_corrected_1 -0.40437029 -0.047666635
## hlr_dgames_b4_corrected_2 0.49992783 0.182179099
## hlr_dgames_b4_corrected_3 0.66306659 -1.459638849
## hlr_dgames_b4_corrected_4 1.16346103 0.387429529
## hlr_dgames_b4_corrected_5 0.15104802 2.150913693
## hlr_dgames_b4_corrected_6 -0.52758077 14.178446211
## hlr_dgames_b4_corrected_7 1.69663553 -3.638169765
## hlr_ad_books_b4_corrected_0 1.14783861 -0.215326549
## hlr_ad_books_b4_corrected_1 -0.52435295 -0.277034954
## hlr_ad_books_b4_corrected_2 -0.26240180 0.214325290
## hlr_ad_books_b4_corrected_3 0.22242474 0.161001948
## hlr_ad_books_b4_corrected_4 0.89850380 0.072501827
## hlr_ad_books_b4_corrected_5 0.74415468 0.008718523
## hlr_ad_books_b4_corrected_6 1.01476613 -0.817354786
## hlr_ad_books_b4_corrected_7 -0.42873997 0.107128126
## hlr_ad_dbooks_b4_corrected_0 0.23939890 0.074328598
## hlr_ad_dbooks_b4_corrected_1 -0.69454902 -0.273711548
## hlr_ad_dbooks_b4_corrected_2 0.16477142 0.219004277
## hlr_ad_dbooks_b4_corrected_3 1.05323215 0.189144190
## hlr_ad_dbooks_b4_corrected_4 0.93180495 0.075081129
## hlr_ad_dbooks_b4_corrected_5 0.83239351 0.955888335
## hlr_ad_dbooks_b4_corrected_6 -0.59728133 -0.039886812
## hlr_ad_dbooks_b4_corrected_7 -0.11034691 -0.211843951
## hlr_ad_news_b4_corrected_0 0.12021455 0.041164615
## hlr_ad_news_b4_corrected_1 -0.48634227 -0.320795140
## hlr_ad_news_b4_corrected_2 0.24988036 -1.408051377
## hlr_ad_news_b4_corrected_3 3.10521166 1.265760877
## hlr_ad_news_b4_corrected_5 0.88355888 4.475553043
## hlr_ad_news_b4_corrected_6 0.74161247 0.013466352
## hlr_ad_news_b4_corrected_7 -1.28616959 5.586684751
## hlr_books_since_corrected_0 1.50700768 -0.256778095
## hlr_books_since_corrected_1 -0.31487674 -0.264378160
## hlr_books_since_corrected_2 -0.21903660 0.213488876
## hlr_books_since_corrected_3 0.29172648 0.123264479
## hlr_books_since_corrected_4 1.20233153 -0.278033857
## hlr_books_since_corrected_5 0.49145639 -0.409295090
## hlr_books_since_corrected_6 -0.15356950 0.182615264
## hlr_books_since_corrected_7 -0.44043021 -0.144766344
## hlr_dbooks_since_corrected_0 0.16605438 0.123151457
## hlr_dbooks_since_corrected_1 -0.46287128 -0.103792367
## hlr_dbooks_since_corrected_2 0.49988473 -0.188222658
## hlr_dbooks_since_corrected_3 1.10805733 0.117575903
## hlr_dbooks_since_corrected_4 1.25491750 -1.866423098
## hlr_dbooks_since_corrected_5 -0.58714253 0.774307208
## hlr_dbooks_since_corrected_6 -1.19092341 4.554136233
## hlr_dbooks_since_corrected_7 -0.04938173 -0.047921019
## hlr_games_since_corrected_0 1.21845445 -0.174293346
## hlr_games_since_corrected_1 -0.42748279 0.002898944
## hlr_games_since_corrected_2 0.36794432 0.181843008
## hlr_games_since_corrected_3 1.26928751 -0.755279902
## hlr_games_since_corrected_4 0.16239943 0.048051449
## hlr_games_since_corrected_5 0.87986816 2.513836733
## hlr_games_since_corrected_7 -0.10278767 -1.410041862
## hlr_dgames_since_corrected_0 0.49911598 0.154478477
## hlr_dgames_since_corrected_1 -0.38587145 -0.064983075
## hlr_dgames_since_corrected_2 0.32082863 0.147280012
## hlr_dgames_since_corrected_3 1.22124844 -0.414977922
## hlr_dgames_since_corrected_4 1.40942448 -0.599687710
## hlr_dgames_since_corrected_5 2.52723025 2.045437624
## hlr_dgames_since_corrected_6 -0.89109728 1.330506215
## hlr_dgames_since_corrected_7 0.40611642 -1.590551166
## hlr_ad_books_since_corrected_0 1.26321462 -0.320446394
## hlr_ad_books_since_corrected_1 -0.59512558 -0.242297517
## hlr_ad_books_since_corrected_2 -0.17734232 0.200838542
## hlr_ad_books_since_corrected_3 0.27403372 0.208685580
## hlr_ad_books_since_corrected_4 0.80244568 -0.005631498
## hlr_ad_books_since_corrected_5 0.76166991 1.167641376
## hlr_ad_books_since_corrected_6 0.93409081 -0.858367056
## hlr_ad_books_since_corrected_7 -0.57063758 -0.096177624
## hlr_ad_dbooks_since_corrected_0 0.25754436 0.099029631
## hlr_ad_dbooks_since_corrected_1 -0.62379828 -0.191181372
## hlr_ad_dbooks_since_corrected_2 0.29405856 -0.048287762
## hlr_ad_dbooks_since_corrected_3 0.60519548 0.753389292
## hlr_ad_dbooks_since_corrected_4 1.30674025 -0.282989889
## hlr_ad_dbooks_since_corrected_5 0.23130178 1.039249336
## hlr_ad_dbooks_since_corrected_6 -1.01529597 -3.505456063
## hlr_ad_dbooks_since_corrected_7 -0.29187742 -0.186952146
## hlr_ad_news_since_corrected_0 0.14479005 0.070764044
## hlr_ad_news_since_corrected_1 -0.62839832 -0.376053563
## hlr_ad_news_since_corrected_2 1.33036454 -1.959859167
## hlr_ad_news_since_corrected_3 2.04111766 0.219254399
## hlr_ad_news_since_corrected_4 2.29193045 0.036142517
## hlr_ad_news_since_corrected_5 -0.37666840 9.956953361
## hlr_ad_news_since_corrected_6 0.74161247 0.013466352
## hlr_ad_news_since_corrected_7 -1.75923801 3.159460526var_2f$cos2## Dim 1 Dim 2 Dim 3
## hlr_books_b4_corrected_0 1.574566e-02 8.597959e-02 7.480159e-03
## hlr_books_b4_corrected_1 6.834819e-02 7.233364e-02 1.095972e-02
## hlr_books_b4_corrected_2 3.737584e-02 1.800697e-02 1.165959e-03
## hlr_books_b4_corrected_3 1.308382e-03 1.177175e-01 9.791555e-03
## hlr_books_b4_corrected_4 6.968762e-03 2.121918e-02 3.000404e-04
## hlr_books_b4_corrected_5 1.355121e-01 2.579456e-02 1.344754e-01
## hlr_books_b4_corrected_6 1.190162e-02 9.449022e-04 1.069823e-02
## hlr_books_b4_corrected_7 3.235493e-01 7.482537e-02 5.098791e-02
## hlr_dbooks_b4_corrected_0 7.187069e-02 1.694325e-01 6.342400e-03
## hlr_dbooks_b4_corrected_1 6.802522e-04 8.379944e-02 2.704448e-03
## hlr_dbooks_b4_corrected_2 3.411950e-05 8.033504e-02 2.823828e-03
## hlr_dbooks_b4_corrected_3 1.313349e-04 2.489931e-02 4.551463e-03
## hlr_dbooks_b4_corrected_4 1.643559e-01 6.009232e-03 7.533045e-03
## hlr_dbooks_b4_corrected_5 1.011115e-01 3.167435e-04 2.542790e-01
## hlr_dbooks_b4_corrected_6 2.904167e-02 1.944186e-03 7.682728e-02
## hlr_dbooks_b4_corrected_7 1.088156e-01 9.293688e-03 1.989018e-02
## hlr_games_b4_corrected_0 3.046899e-02 1.447743e-01 1.002948e-02
## hlr_games_b4_corrected_1 7.649341e-02 1.510477e-03 7.959897e-05
## hlr_games_b4_corrected_2 4.683432e-03 1.087905e-01 3.813694e-03
## hlr_games_b4_corrected_3 8.785249e-03 8.437231e-02 1.027629e-04
## hlr_games_b4_corrected_4 1.907692e-01 9.092815e-04 1.448158e-01
## hlr_games_b4_corrected_5 8.509924e-02 1.101335e-02 1.089465e-02
## hlr_games_b4_corrected_6 8.582172e-02 3.848185e-02 1.079990e-01
## hlr_games_b4_corrected_7 9.161723e-02 7.752391e-02 5.588776e-02
## hlr_dgames_b4_corrected_0 2.776593e-02 8.572478e-02 4.722686e-03
## hlr_dgames_b4_corrected_1 2.698150e-02 2.195987e-03 2.424197e-04
## hlr_dgames_b4_corrected_2 2.036252e-02 9.328059e-02 2.100046e-03
## hlr_dgames_b4_corrected_3 2.543674e-02 3.855219e-02 3.885099e-02
## hlr_dgames_b4_corrected_4 2.196958e-02 8.303158e-04 1.840512e-02
## hlr_dgames_b4_corrected_5 1.422305e-01 5.829762e-04 2.976174e-01
## hlr_dgames_b4_corrected_6 6.726895e-02 2.026126e-02 1.245460e-01
## hlr_dgames_b4_corrected_7 1.106022e-01 4.908351e-02 2.650138e-02
## hlr_ad_books_b4_corrected_0 3.117009e-02 1.330103e-01 1.252997e-02
## hlr_ad_books_b4_corrected_1 5.945095e-02 3.069343e-02 3.562981e-03
## hlr_ad_books_b4_corrected_2 4.438295e-02 2.210607e-03 5.158656e-04
## hlr_ad_books_b4_corrected_3 4.978000e-04 4.602321e-02 4.008395e-04
## hlr_ad_books_b4_corrected_4 6.203635e-05 7.807168e-02 1.226198e-02
## hlr_ad_books_b4_corrected_5 1.560531e-02 6.373439e-02 1.562133e-03
## hlr_ad_books_b4_corrected_6 3.064451e-02 2.490948e-05 3.988935e-03
## hlr_ad_books_b4_corrected_7 4.076474e-01 4.001691e-02 6.919919e-07
## hlr_ad_dbooks_b4_corrected_0 1.035964e-01 2.069153e-01 1.650726e-02
## hlr_ad_dbooks_b4_corrected_1 1.321677e-03 4.513900e-02 9.091450e-03
## hlr_ad_dbooks_b4_corrected_2 7.161191e-03 2.565602e-02 2.245227e-02
## hlr_ad_dbooks_b4_corrected_3 1.330040e-03 1.033928e-01 8.245731e-03
## hlr_ad_dbooks_b4_corrected_4 3.195361e-03 1.184665e-02 7.617822e-04
## hlr_ad_dbooks_b4_corrected_5 2.995187e-02 4.275975e-03 6.393787e-03
## hlr_ad_dbooks_b4_corrected_6 6.705206e-02 1.323701e-02 4.436191e-03
## hlr_ad_dbooks_b4_corrected_7 3.038956e-01 2.176551e-04 1.833213e-01
## hlr_ad_news_b4_corrected_0 9.421618e-02 8.087418e-02 4.258061e-05
## hlr_ad_news_b4_corrected_1 4.247941e-02 7.265524e-02 2.048137e-03
## hlr_ad_news_b4_corrected_2 2.019519e-02 2.039320e-02 9.373246e-05
## hlr_ad_news_b4_corrected_3 1.304011e-04 1.690369e-02 2.818572e-03
## hlr_ad_news_b4_corrected_5 1.865882e-02 6.191632e-03 9.698522e-03
## hlr_ad_news_b4_corrected_6 1.046379e-05 4.084625e-03 8.993500e-04
## hlr_ad_news_b4_corrected_7 6.884689e-02 1.269006e-02 1.779050e-02
## hlr_books_since_corrected_0 1.390720e-02 1.553933e-01 6.994858e-03
## hlr_books_since_corrected_1 5.644604e-02 3.719394e-02 4.555068e-03
## hlr_books_since_corrected_2 3.846135e-02 6.507614e-03 4.580425e-05
## hlr_books_since_corrected_3 2.412609e-04 1.221089e-01 9.253683e-03
## hlr_books_since_corrected_4 6.193791e-03 8.117038e-02 3.393937e-04
## hlr_books_since_corrected_5 1.099879e-01 9.279875e-03 1.385452e-01
## hlr_books_since_corrected_6 4.282858e-02 1.498595e-04 6.322632e-04
## hlr_books_since_corrected_7 3.039820e-01 7.582851e-02 6.999587e-02
## hlr_dbooks_since_corrected_0 5.660436e-02 1.345728e-01 9.774124e-03
## hlr_dbooks_since_corrected_1 1.219546e-03 1.708080e-02 8.985837e-04
## hlr_dbooks_since_corrected_2 2.546592e-04 1.069271e-01 1.727232e-03
## hlr_dbooks_since_corrected_3 8.106226e-05 3.246296e-02 5.888494e-03
## hlr_dbooks_since_corrected_4 4.980327e-02 5.518914e-03 2.499931e-02
## hlr_dbooks_since_corrected_5 1.613240e-01 2.028376e-04 3.086433e-01
## hlr_dbooks_since_corrected_6 6.249716e-04 2.187861e-03 8.000498e-03
## hlr_dbooks_since_corrected_7 2.223593e-01 4.146695e-02 1.622271e-01
## hlr_games_since_corrected_0 2.622031e-02 2.086034e-01 9.515982e-03
## hlr_games_since_corrected_1 6.620684e-02 1.567854e-03 1.181850e-03
## hlr_games_since_corrected_2 6.135666e-03 9.221874e-02 1.048183e-02
## hlr_games_since_corrected_3 3.610573e-03 1.076446e-01 2.659255e-03
## hlr_games_since_corrected_4 1.894720e-01 2.821176e-03 1.686541e-01
## hlr_games_since_corrected_5 2.184952e-02 8.402133e-03 8.013528e-03
## hlr_games_since_corrected_7 2.500210e-01 1.060677e-01 2.585413e-01
## hlr_dgames_since_corrected_0 2.268673e-02 1.406919e-01 8.491758e-03
## hlr_dgames_since_corrected_1 4.141945e-02 3.507232e-03 1.713626e-04
## hlr_dgames_since_corrected_2 2.643907e-02 7.168792e-02 1.138431e-02
## hlr_dgames_since_corrected_3 7.179127e-03 1.011319e-01 9.731612e-03
## hlr_dgames_since_corrected_4 5.739300e-03 1.089088e-02 5.731962e-03
## hlr_dgames_since_corrected_5 3.137574e-02 1.243138e-03 4.768918e-02
## hlr_dgames_since_corrected_6 1.419674e-01 1.127285e-06 4.048484e-01
## hlr_dgames_since_corrected_7 2.670788e-01 6.662921e-02 1.993520e-01
## hlr_ad_books_since_corrected_0 3.074551e-02 1.979820e-01 1.434899e-02
## hlr_ad_books_since_corrected_1 5.356704e-02 2.318552e-02 2.714590e-03
## hlr_ad_books_since_corrected_2 3.079920e-02 5.254146e-03 2.042366e-03
## hlr_ad_books_since_corrected_3 2.715319e-04 5.965629e-02 2.543197e-04
## hlr_ad_books_since_corrected_4 2.560736e-04 7.934786e-02 8.839368e-03
## hlr_ad_books_since_corrected_5 2.760351e-02 3.306019e-02 1.444870e-07
## hlr_ad_books_since_corrected_6 1.168994e-02 2.484224e-03 6.266455e-03
## hlr_ad_books_since_corrected_7 3.645699e-01 2.131058e-02 1.033585e-03
## hlr_ad_dbooks_since_corrected_0 9.873152e-02 2.543365e-01 1.959207e-02
## hlr_ad_dbooks_since_corrected_1 1.654181e-03 6.453291e-02 1.172062e-03
## hlr_ad_dbooks_since_corrected_2 3.272086e-03 7.050286e-02 2.195035e-02
## hlr_ad_dbooks_since_corrected_3 5.950681e-03 5.118134e-02 2.218229e-02
## hlr_ad_dbooks_since_corrected_4 5.952619e-03 6.605471e-03 7.145091e-03
## hlr_ad_dbooks_since_corrected_5 4.085515e-02 5.420279e-06 3.769194e-05
## hlr_ad_dbooks_since_corrected_6 7.168475e-02 2.755293e-02 7.357464e-02
## hlr_ad_dbooks_since_corrected_7 2.941587e-01 1.256187e-03 1.658199e-01
## hlr_ad_news_since_corrected_0 4.917028e-02 9.602715e-02 5.125470e-03
## hlr_ad_news_since_corrected_1 1.772030e-02 7.440518e-02 8.175606e-05
## hlr_ad_news_since_corrected_2 1.379068e-02 2.736265e-02 1.283567e-03
## hlr_ad_news_since_corrected_3 3.272294e-03 2.257032e-02 3.329036e-03
## hlr_ad_news_since_corrected_4 1.595911e-04 2.095087e-03 2.420448e-04
## hlr_ad_news_since_corrected_5 8.116883e-02 1.913094e-02 1.173468e-01
## hlr_ad_news_since_corrected_6 1.046379e-05 4.084625e-03 8.993500e-04
## hlr_ad_news_since_corrected_7 1.770887e-02 2.967975e-03 1.553711e-03
## Dim 4 Dim 5
## hlr_books_b4_corrected_0 0.0847156778 2.268327e-03
## hlr_books_b4_corrected_1 0.0041589835 3.132628e-02
## hlr_books_b4_corrected_2 0.0579964567 2.919939e-02
## hlr_books_b4_corrected_3 0.0290979586 4.703222e-03
## hlr_books_b4_corrected_4 0.0452812491 1.274819e-06
## hlr_books_b4_corrected_5 0.0118417034 7.535999e-04
## hlr_books_b4_corrected_6 0.0034531490 7.767495e-03
## hlr_books_b4_corrected_7 0.0089835491 6.871262e-04
## hlr_dbooks_b4_corrected_0 0.0227910975 1.479564e-02
## hlr_dbooks_b4_corrected_1 0.0906392786 5.375536e-03
## hlr_dbooks_b4_corrected_2 0.0456072224 1.179513e-02
## hlr_dbooks_b4_corrected_3 0.0084506746 9.043248e-04
## hlr_dbooks_b4_corrected_4 0.0007444442 1.095725e-01
## hlr_dbooks_b4_corrected_5 0.0046320564 2.058607e-03
## hlr_dbooks_b4_corrected_6 0.0046104406 2.953547e-01
## hlr_dbooks_b4_corrected_7 0.0054457737 1.310513e-02
## hlr_games_b4_corrected_0 0.0983182568 2.065555e-03
## hlr_games_b4_corrected_1 0.2148388670 4.159423e-03
## hlr_games_b4_corrected_2 0.0544359689 4.404611e-04
## hlr_games_b4_corrected_3 0.0406542381 2.613561e-02
## hlr_games_b4_corrected_4 0.0030490917 9.087821e-04
## hlr_games_b4_corrected_5 0.0080778150 1.871754e-01
## hlr_games_b4_corrected_6 0.0019907808 1.095394e-01
## hlr_games_b4_corrected_7 0.0090478938 6.906642e-02
## hlr_dgames_b4_corrected_0 0.0700566369 7.639607e-03
## hlr_dgames_b4_corrected_1 0.1969216932 2.736302e-03
## hlr_dgames_b4_corrected_2 0.0341860627 4.539746e-03
## hlr_dgames_b4_corrected_3 0.0140159209 6.792008e-02
## hlr_dgames_b4_corrected_4 0.0088618106 9.826621e-04
## hlr_dgames_b4_corrected_5 0.0001493650 3.028759e-02
## hlr_dgames_b4_corrected_6 0.0004533249 3.274077e-01
## hlr_dgames_b4_corrected_7 0.0235948535 1.084941e-01
## hlr_ad_books_b4_corrected_0 0.0892079956 3.139332e-03
## hlr_ad_books_b4_corrected_1 0.0863612490 2.410686e-02
## hlr_ad_books_b4_corrected_2 0.0287159026 1.915736e-02
## hlr_ad_books_b4_corrected_3 0.0070806746 3.709973e-03
## hlr_ad_books_b4_corrected_4 0.0888914320 5.787859e-04
## hlr_ad_books_b4_corrected_5 0.0244446874 3.355397e-06
## hlr_ad_books_b4_corrected_6 0.0292738378 1.899192e-02
## hlr_ad_books_b4_corrected_7 0.0224740942 1.403141e-03
## hlr_ad_dbooks_b4_corrected_0 0.0494965843 4.771367e-03
## hlr_ad_dbooks_b4_corrected_1 0.1980488618 3.075762e-02
## hlr_ad_dbooks_b4_corrected_2 0.0040597565 7.172018e-03
## hlr_ad_dbooks_b4_corrected_3 0.0529137017 1.706499e-03
## hlr_ad_dbooks_b4_corrected_4 0.0187498105 1.217330e-04
## hlr_ad_dbooks_b4_corrected_5 0.0091318479 1.204247e-02
## hlr_ad_dbooks_b4_corrected_6 0.0035147289 1.567446e-05
## hlr_ad_dbooks_b4_corrected_7 0.0003252471 1.198741e-03
## hlr_ad_news_b4_corrected_0 0.0490320050 5.749283e-03
## hlr_ad_news_b4_corrected_1 0.0591321997 2.572738e-02
## hlr_ad_news_b4_corrected_2 0.0009273296 2.944468e-02
## hlr_ad_news_b4_corrected_3 0.0157041359 2.609366e-03
## hlr_ad_news_b4_corrected_5 0.0025470679 6.535261e-02
## hlr_ad_news_b4_corrected_6 0.0008957476 2.953463e-07
## hlr_ad_news_b4_corrected_7 0.0108296709 2.043276e-01
## hlr_books_since_corrected_0 0.1287721329 3.738582e-03
## hlr_books_since_corrected_1 0.0311424411 2.195445e-02
## hlr_books_since_corrected_2 0.0324204456 3.079896e-02
## hlr_books_since_corrected_3 0.0145893154 2.604708e-03
## hlr_books_since_corrected_4 0.0767356756 4.103403e-03
## hlr_books_since_corrected_5 0.0052157509 3.617595e-03
## hlr_books_since_corrected_6 0.0005895898 8.337084e-04
## hlr_books_since_corrected_7 0.0127750316 1.380203e-03
## hlr_dbooks_since_corrected_0 0.0200609000 1.103390e-02
## hlr_dbooks_since_corrected_1 0.1253471898 6.302676e-03
## hlr_dbooks_since_corrected_2 0.0384438069 5.450426e-03
## hlr_dbooks_since_corrected_3 0.0412702871 4.646754e-04
## hlr_dbooks_since_corrected_4 0.0103097736 2.280547e-02
## hlr_dbooks_since_corrected_5 0.0028257078 4.914358e-03
## hlr_dbooks_since_corrected_6 0.0046274016 6.766772e-02
## hlr_dbooks_since_corrected_7 0.0000651367 6.134021e-05
## hlr_games_since_corrected_0 0.1545935586 3.163257e-03
## hlr_games_since_corrected_1 0.2632348291 1.210559e-05
## hlr_games_since_corrected_2 0.0436719432 1.066674e-02
## hlr_games_since_corrected_3 0.0541543118 1.917471e-02
## hlr_games_since_corrected_4 0.0005695290 4.986087e-05
## hlr_games_since_corrected_5 0.0037949411 3.097733e-02
## hlr_games_since_corrected_7 0.0001392462 2.620386e-02
## hlr_dgames_since_corrected_0 0.0761630876 7.295878e-03
## hlr_dgames_since_corrected_1 0.1915177889 5.431557e-03
## hlr_dgames_since_corrected_2 0.0185710457 3.913612e-03
## hlr_dgames_since_corrected_3 0.0372861938 4.305167e-03
## hlr_dgames_since_corrected_4 0.0162826013 2.947749e-03
## hlr_dgames_since_corrected_5 0.0208381492 1.365029e-02
## hlr_dgames_since_corrected_6 0.0025907157 5.775683e-03
## hlr_dgames_since_corrected_7 0.0018988715 2.912660e-02
## hlr_ad_books_since_corrected_0 0.1442930309 9.285426e-03
## hlr_ad_books_since_corrected_1 0.1224498133 2.029733e-02
## hlr_ad_books_since_corrected_2 0.0128104193 1.642982e-02
## hlr_ad_books_since_corrected_3 0.0104297891 6.048565e-03
## hlr_ad_books_since_corrected_4 0.0582267249 2.867735e-06
## hlr_ad_books_since_corrected_5 0.0215229394 5.058095e-02
## hlr_ad_books_since_corrected_6 0.0278154149 2.348840e-02
## hlr_ad_books_since_corrected_7 0.0358542641 1.018517e-03
## hlr_ad_dbooks_since_corrected_0 0.0515679992 7.624415e-03
## hlr_ad_dbooks_since_corrected_1 0.1875297822 1.761461e-02
## hlr_ad_dbooks_since_corrected_2 0.0105721154 2.850811e-04
## hlr_ad_dbooks_since_corrected_3 0.0241212127 3.738063e-02
## hlr_ad_dbooks_since_corrected_4 0.0426892517 2.002082e-03
## hlr_ad_dbooks_since_corrected_5 0.0006159599 1.243466e-02
## hlr_ad_dbooks_since_corrected_6 0.0067484511 8.044663e-02
## hlr_ad_dbooks_since_corrected_7 0.0021298108 8.737776e-04
## hlr_ad_news_since_corrected_0 0.0685702680 1.637886e-02
## hlr_ad_news_since_corrected_1 0.1048150086 3.753642e-02
## hlr_ad_news_since_corrected_2 0.0174371411 3.784284e-02
## hlr_ad_news_since_corrected_3 0.0204223593 2.356495e-04
## hlr_ad_news_since_corrected_4 0.0085552853 2.127494e-06
## hlr_ad_news_since_corrected_5 0.0004629008 3.234614e-01
## hlr_ad_news_since_corrected_6 0.0008957476 2.953463e-07
## hlr_ad_news_since_corrected_7 0.0100976130 3.256832e-02var_2f$contrib## Dim 1 Dim 2 Dim 3
## hlr_books_b4_corrected_0 0.2491773232 1.853276e+00 1.796172e-01
## hlr_books_b4_corrected_1 0.8285136574 1.194291e+00 2.015865e-01
## hlr_books_b4_corrected_2 0.3734079296 2.450362e-01 1.767523e-02
## hlr_books_b4_corrected_3 0.0182304545 2.234092e+00 2.070161e-01
## hlr_books_b4_corrected_4 0.1089820531 4.519861e-01 7.119813e-03
## hlr_books_b4_corrected_5 2.1481087437 5.569337e-01 3.234525e+00
## hlr_books_b4_corrected_6 0.1924668447 2.081296e-02 2.625134e-01
## hlr_books_b4_corrected_7 4.9047181473 1.544968e+00 1.172817e+00
## hlr_dbooks_b4_corrected_0 0.5169837273 1.660041e+00 6.922582e-02
## hlr_dbooks_b4_corrected_1 0.0076116796 1.277170e+00 4.591755e-02
## hlr_dbooks_b4_corrected_2 0.0005199481 1.667475e+00 6.529577e-02
## hlr_dbooks_b4_corrected_3 0.0021168822 5.466395e-01 1.113159e-01
## hlr_dbooks_b4_corrected_4 2.6666371233 1.327989e-01 1.854550e-01
## hlr_dbooks_b4_corrected_5 1.6405101402 6.999763e-03 6.260060e+00
## hlr_dbooks_b4_corrected_6 0.4735155508 4.317652e-02 1.900718e+00
## hlr_dbooks_b4_corrected_7 1.7626089408 2.050454e-01 4.888695e-01
## hlr_games_b4_corrected_0 0.4586356402 2.968234e+00 2.290750e-01
## hlr_games_b4_corrected_1 0.4299992790 1.156525e-02 6.789544e-04
## hlr_games_b4_corrected_2 0.0621376471 1.965977e+00 7.677608e-02
## hlr_games_b4_corrected_3 0.1397300017 1.827817e+00 2.480056e-03
## hlr_games_b4_corrected_4 3.0748565719 1.996237e-02 3.541783e+00
## hlr_games_b4_corrected_5 1.3784484957 2.429861e-01 2.677735e-01
## hlr_games_b4_corrected_6 1.3992970719 8.546057e-01 2.671911e+00
## hlr_games_b4_corrected_7 1.4864685450 1.713213e+00 1.375893e+00
## hlr_dgames_b4_corrected_0 0.3277006475 1.378061e+00 8.457529e-02
## hlr_dgames_b4_corrected_1 0.2005541092 2.223271e-02 2.734153e-03
## hlr_dgames_b4_corrected_2 0.2934878365 1.831247e+00 4.592793e-02
## hlr_dgames_b4_corrected_3 0.4038954736 8.337843e-01 9.360500e-01
## hlr_dgames_b4_corrected_4 0.3576220319 1.840954e-02 4.546012e-01
## hlr_dgames_b4_corrected_5 2.3152363536 1.292559e-02 7.351065e+00
## hlr_dgames_b4_corrected_6 1.1003841217 4.514329e-01 3.091354e+00
## hlr_dgames_b4_corrected_7 1.7974416381 1.086485e+00 6.535051e-01
## hlr_ad_books_b4_corrected_0 0.4783236432 2.780136e+00 2.917584e-01
## hlr_ad_books_b4_corrected_1 0.7412520497 5.212543e-01 6.740778e-02
## hlr_ad_books_b4_corrected_2 0.5131769891 3.481446e-02 9.050593e-03
## hlr_ad_books_b4_corrected_3 0.0071350733 8.984989e-01 8.717731e-03
## hlr_ad_books_b4_corrected_4 0.0009156242 1.569501e+00 2.746131e-01
## hlr_ad_books_b4_corrected_5 0.2448775913 1.362221e+00 3.719496e-02
## hlr_ad_books_b4_corrected_6 0.4882195910 5.405354e-04 9.642926e-02
## hlr_ad_books_b4_corrected_7 5.9515010590 7.957606e-01 1.532965e-05
## hlr_ad_dbooks_b4_corrected_0 0.9107934308 2.477792e+00 2.202113e-01
## hlr_ad_dbooks_b4_corrected_1 0.0153522924 7.141621e-01 1.602398e-01
## hlr_ad_dbooks_b4_corrected_2 0.1020705195 4.980827e-01 4.855845e-01
## hlr_ad_dbooks_b4_corrected_3 0.0208000316 2.202352e+00 1.956672e-01
## hlr_ad_dbooks_b4_corrected_4 0.0512480866 2.587917e-01 1.853865e-02
## hlr_ad_dbooks_b4_corrected_5 0.4843662683 9.418511e-02 1.568908e-01
## hlr_ad_dbooks_b4_corrected_6 1.0879043444 2.925268e-01 1.092140e-01
## hlr_ad_dbooks_b4_corrected_7 4.8496739400 4.731012e-03 4.439054e+00
## hlr_ad_news_b4_corrected_0 0.3514105709 4.108623e-01 2.409853e-04
## hlr_ad_news_b4_corrected_1 0.5568072280 1.297151e+00 4.073566e-02
## hlr_ad_news_b4_corrected_2 0.3260482228 4.484525e-01 2.296219e-03
## hlr_ad_news_b4_corrected_3 0.0021330978 3.766243e-01 6.995973e-02
## hlr_ad_news_b4_corrected_5 0.3047235105 1.377286e-01 2.403348e-01
## hlr_ad_news_b4_corrected_6 0.0001711665 9.100786e-02 2.232276e-02
## hlr_ad_news_b4_corrected_7 1.1206933800 2.813605e-01 4.394202e-01
## hlr_books_since_corrected_0 0.2156373043 3.281812e+00 1.645707e-01
## hlr_books_since_corrected_1 0.7037860324 6.316499e-01 8.617702e-02
## hlr_books_since_corrected_2 0.3760554387 8.666550e-02 6.795517e-04
## hlr_books_since_corrected_3 0.0033744855 2.326296e+00 1.963924e-01
## hlr_books_since_corrected_4 0.0963675096 1.720160e+00 8.012487e-03
## hlr_books_since_corrected_5 1.7640165587 2.027202e-01 3.371621e+00
## hlr_books_since_corrected_6 0.6846147466 3.262826e-03 1.533557e-02
## hlr_books_since_corrected_7 4.6728840645 1.587694e+00 1.632672e+00
## hlr_dbooks_since_corrected_0 0.5368601302 1.738465e+00 1.406626e-01
## hlr_dbooks_since_corrected_1 0.0126064038 2.404907e-01 1.409422e-02
## hlr_dbooks_since_corrected_2 0.0036161623 2.068109e+00 3.721591e-02
## hlr_dbooks_since_corrected_3 0.0012849817 7.009120e-01 1.416354e-01
## hlr_dbooks_since_corrected_4 0.8107002942 1.223639e-01 6.174757e-01
## hlr_dbooks_since_corrected_5 2.6217421457 4.489900e-03 7.610925e+00
## hlr_dbooks_since_corrected_6 0.0102066217 4.866745e-02 1.982569e-01
## hlr_dbooks_since_corrected_7 3.5484889758 9.013372e-01 3.928266e+00
## hlr_games_since_corrected_0 0.3890937968 4.216333e+00 2.142691e-01
## hlr_games_since_corrected_1 0.4444927548 1.433721e-02 1.203964e-02
## hlr_games_since_corrected_2 0.0760109109 1.556075e+00 1.970339e-01
## hlr_games_since_corrected_3 0.0572340306 2.324169e+00 6.396283e-02
## hlr_games_since_corrected_4 3.0388046915 6.162899e-02 4.104348e+00
## hlr_games_since_corrected_5 0.3562497208 1.865947e-01 1.982558e-01
## hlr_games_since_corrected_7 4.0432112004 2.336309e+00 6.344090e+00
## hlr_dgames_since_corrected_0 0.2846781504 2.404630e+00 1.616848e-01
## hlr_dgames_since_corrected_1 0.2968368994 3.423538e-02 1.863456e-03
## hlr_dgames_since_corrected_2 0.3669822876 1.355321e+00 2.397703e-01
## hlr_dgames_since_corrected_3 0.1147583193 2.201902e+00 2.360406e-01
## hlr_dgames_since_corrected_4 0.0932717295 2.410744e-01 1.413461e-01
## hlr_dgames_since_corrected_5 0.5124077319 2.765273e-02 1.181765e+00
## hlr_dgames_since_corrected_6 2.3185171388 2.507568e-05 1.003237e+01
## hlr_dgames_since_corrected_7 4.3261766793 1.470031e+00 4.899762e+00
## hlr_ad_books_since_corrected_0 0.4619788547 4.051942e+00 3.271531e-01
## hlr_ad_books_since_corrected_1 0.6521914474 3.844956e-01 5.015002e-02
## hlr_ad_books_since_corrected_2 0.3585767747 8.331860e-02 3.607993e-02
## hlr_ad_books_since_corrected_3 0.0039063927 1.168984e+00 5.551681e-03
## hlr_ad_books_since_corrected_4 0.0038477349 1.623950e+00 2.015352e-01
## hlr_ad_books_since_corrected_5 0.4360941632 7.114075e-01 3.463652e-06
## hlr_ad_books_since_corrected_6 0.1856178274 5.372734e-02 1.509798e-01
## hlr_ad_books_since_corrected_7 5.3808615405 4.284139e-01 2.314764e-02
## hlr_ad_dbooks_since_corrected_0 0.9101085566 3.193325e+00 2.740356e-01
## hlr_ad_dbooks_since_corrected_1 0.0182891024 9.718242e-01 1.966298e-02
## hlr_ad_dbooks_since_corrected_2 0.0477712428 1.401992e+00 4.862647e-01
## hlr_ad_dbooks_since_corrected_3 0.0914752867 1.071632e+00 5.174077e-01
## hlr_ad_dbooks_since_corrected_4 0.0951525870 1.438181e-01 1.733044e-01
## hlr_ad_dbooks_since_corrected_5 0.6617770707 1.195869e-04 9.264090e-04
## hlr_ad_dbooks_since_corrected_6 1.1668882208 6.108962e-01 1.817272e+00
## hlr_ad_dbooks_since_corrected_7 4.7021251295 2.735042e-02 4.021967e+00
## hlr_ad_news_since_corrected_0 0.1886367971 5.017818e-01 2.983644e-02
## hlr_ad_news_since_corrected_1 0.2294397387 1.312193e+00 1.606227e-03
## hlr_ad_news_since_corrected_2 0.2237506855 6.046914e-01 3.159996e-02
## hlr_ad_news_since_corrected_3 0.0533537621 5.012422e-01 8.236082e-02
## hlr_ad_news_since_corrected_4 0.0026105882 4.667979e-02 6.007791e-03
## hlr_ad_news_since_corrected_5 1.3255955398 4.255546e-01 2.907919e+00
## hlr_ad_news_since_corrected_6 0.0001711665 9.100786e-02 2.232276e-02
## hlr_ad_news_since_corrected_7 0.2892095712 6.602054e-02 3.850184e-02
## Dim 4 Dim 5
## hlr_books_b4_corrected_0 2.481588290 7.674069e-02
## hlr_books_b4_corrected_1 0.093320722 8.118090e-01
## hlr_books_b4_corrected_2 1.072536857 6.236468e-01
## hlr_books_b4_corrected_3 0.750487921 1.400976e-01
## hlr_books_b4_corrected_4 1.310798681 4.262066e-05
## hlr_books_b4_corrected_5 0.347464662 2.553827e-02
## hlr_books_b4_corrected_6 0.103367379 2.685365e-01
## hlr_books_b4_corrected_7 0.252080764 2.226806e-02
## hlr_dbooks_b4_corrected_0 0.303464924 2.275261e-01
## hlr_dbooks_b4_corrected_1 1.877349914 1.285893e-01
## hlr_dbooks_b4_corrected_2 1.286498097 3.842663e-01
## hlr_dbooks_b4_corrected_3 0.252131001 3.116115e-02
## hlr_dbooks_b4_corrected_4 0.022357793 3.800602e+00
## hlr_dbooks_b4_corrected_5 0.139113933 7.140432e-02
## hlr_dbooks_b4_corrected_6 0.139146840 1.029506e+01
## hlr_dbooks_b4_corrected_7 0.163283636 4.538147e-01
## hlr_games_b4_corrected_0 2.739442024 6.646897e-02
## hlr_games_b4_corrected_1 2.235500673 4.998609e-02
## hlr_games_b4_corrected_2 1.336887296 1.249311e-02
## hlr_games_b4_corrected_3 1.196904925 8.886703e-01
## hlr_games_b4_corrected_4 0.090971500 3.131474e-02
## hlr_games_b4_corrected_5 0.242201585 6.481658e+00
## hlr_games_b4_corrected_6 0.060083379 3.818172e+00
## hlr_games_b4_corrected_7 0.271734189 2.395620e+00
## hlr_dgames_b4_corrected_0 1.530497088 1.927562e-01
## hlr_dgames_b4_corrected_1 2.709425792 4.348124e-02
## hlr_dgames_b4_corrected_2 0.912065117 1.398822e-01
## hlr_dgames_b4_corrected_3 0.411952738 2.305569e+00
## hlr_dgames_b4_corrected_4 0.267019616 3.419630e-02
## hlr_dgames_b4_corrected_5 0.004500591 1.053998e+00
## hlr_dgames_b4_corrected_6 0.013726424 1.144962e+01
## hlr_dgames_b4_corrected_7 0.709784673 3.769377e+00
## hlr_ad_books_b4_corrected_0 2.533995042 1.029896e-01
## hlr_ad_books_b4_corrected_1 1.993169643 6.425695e-01
## hlr_ad_books_b4_corrected_2 0.614598785 4.735426e-01
## hlr_ad_books_b4_corrected_3 0.187860903 1.136807e-01
## hlr_ad_books_b4_corrected_4 2.428561823 1.826255e-02
## hlr_ad_books_b4_corrected_5 0.710034219 1.125623e-04
## hlr_ad_books_b4_corrected_6 0.863297219 6.468503e-01
## hlr_ad_books_b4_corrected_7 0.607354497 4.379409e-02
## hlr_ad_dbooks_b4_corrected_0 0.805505789 8.967893e-02
## hlr_ad_dbooks_b4_corrected_1 4.258320412 7.637882e-01
## hlr_ad_dbooks_b4_corrected_2 0.107110800 2.185389e-01
## hlr_ad_dbooks_b4_corrected_3 1.531742428 5.705290e-02
## hlr_ad_dbooks_b4_corrected_4 0.556638025 4.173867e-03
## hlr_ad_dbooks_b4_corrected_5 0.273354895 4.163303e-01
## hlr_ad_dbooks_b4_corrected_6 0.105557385 5.436803e-04
## hlr_ad_dbooks_b4_corrected_7 0.009607708 4.089647e-02
## hlr_ad_news_b4_corrected_0 0.338522224 4.584325e-02
## hlr_ad_news_b4_corrected_1 1.434724893 7.209320e-01
## hlr_ad_news_b4_corrected_2 0.027713173 1.016280e+00
## hlr_ad_news_b4_corrected_3 0.475512472 9.125087e-02
## hlr_ad_news_b4_corrected_5 0.076998185 2.281692e+00
## hlr_ad_news_b4_corrected_6 0.027122739 1.032841e-05
## hlr_ad_news_b4_corrected_7 0.326314193 7.110530e+00
## hlr_books_since_corrected_0 3.695935384 1.239263e-01
## hlr_books_since_corrected_1 0.718750237 5.851971e-01
## hlr_books_since_corrected_2 0.586765458 6.437776e-01
## hlr_books_since_corrected_3 0.377723245 7.788468e-02
## hlr_books_since_corrected_4 2.209986723 1.364868e-01
## hlr_books_since_corrected_5 0.154843445 1.240367e-01
## hlr_books_since_corrected_6 0.017445391 2.849043e-02
## hlr_books_since_corrected_7 0.363510777 4.535785e-02
## hlr_dbooks_since_corrected_0 0.352192341 2.237240e-01
## hlr_dbooks_since_corrected_1 2.398423238 1.392805e-01
## hlr_dbooks_since_corrected_2 1.010492494 1.654594e-01
## hlr_dbooks_since_corrected_3 1.210971582 1.574709e-02
## hlr_dbooks_since_corrected_4 0.310648911 7.936223e-01
## hlr_dbooks_since_corrected_5 0.085003454 1.707380e-01
## hlr_dbooks_since_corrected_6 0.139886937 2.362521e+00
## hlr_dbooks_since_corrected_7 0.001924120 2.092694e-03
## hlr_games_since_corrected_0 4.246450692 1.003514e-01
## hlr_games_since_corrected_1 3.271322706 1.737481e-04
## hlr_games_since_corrected_2 1.001463131 2.824998e-01
## hlr_games_since_corrected_3 1.589020511 6.497997e-01
## hlr_games_since_corrected_4 0.016907985 1.709582e-03
## hlr_games_since_corrected_5 0.114534404 1.079765e+00
## hlr_games_since_corrected_7 0.004168229 9.059154e-01
## hlr_dgames_since_corrected_0 1.769069703 1.957186e-01
## hlr_dgames_since_corrected_1 2.540626918 8.321666e-02
## hlr_dgames_since_corrected_2 0.477148516 1.161313e-01
## hlr_dgames_since_corrected_3 1.103262355 1.471211e-01
## hlr_dgames_since_corrected_4 0.489816173 1.024127e-01
## hlr_dgames_since_corrected_5 0.629939896 4.765804e-01
## hlr_dgames_since_corrected_6 0.078317664 2.016496e-01
## hlr_dgames_since_corrected_7 0.056934911 1.008619e+00
## hlr_ad_books_since_corrected_0 4.013321540 2.982735e-01
## hlr_ad_books_since_corrected_1 2.759648847 5.283098e-01
## hlr_ad_books_since_corrected_2 0.276073218 4.089289e-01
## hlr_ad_books_since_corrected_3 0.277746621 1.860286e-01
## hlr_ad_books_since_corrected_4 1.619500041 9.211953e-05
## hlr_ad_books_since_corrected_5 0.629413093 1.708344e+00
## hlr_ad_books_since_corrected_6 0.817544305 7.973213e-01
## hlr_ad_books_since_corrected_7 0.979557814 3.213746e-02
## hlr_ad_dbooks_since_corrected_0 0.879905183 1.502506e-01
## hlr_ad_dbooks_since_corrected_1 3.837937006 4.163464e-01
## hlr_ad_dbooks_since_corrected_2 0.285707704 8.897800e-03
## hlr_ad_dbooks_since_corrected_3 0.686363923 1.228446e+00
## hlr_ad_dbooks_since_corrected_4 1.263133604 6.841743e-02
## hlr_ad_dbooks_since_corrected_5 0.018468665 4.305972e-01
## hlr_ad_dbooks_since_corrected_6 0.203340933 2.799514e+00
## hlr_ad_dbooks_since_corrected_7 0.063019037 2.985973e-02
## hlr_ad_news_since_corrected_0 0.486942672 1.343321e-01
## hlr_ad_news_since_corrected_1 2.512113398 1.039017e+00
## hlr_ad_news_since_corrected_2 0.523687335 1.312607e+00
## hlr_ad_news_since_corrected_3 0.616363385 8.213940e-03
## hlr_ad_news_since_corrected_4 0.259049264 7.439957e-05
## hlr_ad_news_since_corrected_5 0.013993549 1.129319e+01
## hlr_ad_news_since_corrected_6 0.027122739 1.032841e-05
## hlr_ad_news_since_corrected_7 0.305252121 1.137076e+00#Correlação entre variáveis e dimensões principais correlação entre as variáveis e as dimensões principais do MCA
fviz_mca_var(res.mca_2f, choice = "mca.cor",
repel = TRUE, # Avoid text overlapping (slow)
ggtheme = theme_minimal())
head(round(var_2f$coord, 2), 4)## Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_b4_corrected_0 -0.67 -1.56 -0.46 1.55 -0.25
## hlr_books_b4_corrected_1 -0.44 -0.45 -0.18 -0.11 -0.30
## hlr_books_b4_corrected_2 -0.24 0.17 0.04 -0.30 0.21
## hlr_books_b4_corrected_3 -0.09 0.82 0.24 0.41 0.16para visualizar apenas categorias de variáveis:
fviz_mca_var(res.mca_2f,
repel = TRUE, # Avoid text overlapping (slow)
ggtheme = theme_minimal())## Warning: ggrepel: 92 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
head(var_2f$cos2, 10)## Dim 1 Dim 2 Dim 3 Dim 4
## hlr_books_b4_corrected_0 0.0157456573 0.0859795860 0.0074801587 0.084715678
## hlr_books_b4_corrected_1 0.0683481871 0.0723336424 0.0109597168 0.004158983
## hlr_books_b4_corrected_2 0.0373758427 0.0180069711 0.0011659585 0.057996457
## hlr_books_b4_corrected_3 0.0013083819 0.1177174870 0.0097915554 0.029097959
## hlr_books_b4_corrected_4 0.0069687616 0.0212191778 0.0003000404 0.045281249
## hlr_books_b4_corrected_5 0.1355120832 0.0257945596 0.1344754080 0.011841703
## hlr_books_b4_corrected_6 0.0119016167 0.0009449022 0.0106982322 0.003453149
## hlr_books_b4_corrected_7 0.3235493366 0.0748253698 0.0509879071 0.008983549
## hlr_dbooks_b4_corrected_0 0.0718706932 0.1694324662 0.0063424005 0.022791098
## hlr_dbooks_b4_corrected_1 0.0006802522 0.0837994429 0.0027044482 0.090639279
## Dim 5
## hlr_books_b4_corrected_0 2.268327e-03
## hlr_books_b4_corrected_1 3.132628e-02
## hlr_books_b4_corrected_2 2.919939e-02
## hlr_books_b4_corrected_3 4.703222e-03
## hlr_books_b4_corrected_4 1.274819e-06
## hlr_books_b4_corrected_5 7.535999e-04
## hlr_books_b4_corrected_6 7.767495e-03
## hlr_books_b4_corrected_7 6.871262e-04
## hlr_dbooks_b4_corrected_0 1.479564e-02
## hlr_dbooks_b4_corrected_1 5.375536e-03Se uma categoria de variável é bem representada por duas dimensões, a soma do cos2 é próxima de um. Para alguns dos itens de linha, são necessárias mais de 2 dimensões para representar perfeitamente os dados.
!!! OS COSSENOS SAO MUITO BAIXOS!!
fviz_mca_var(res.mca_2f, col.var = "cos2",
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE, # Avoid text overlapping
ggtheme = theme_minimal())## Warning: ggrepel: 97 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
fviz_cos2(res.mca_2f, choice = "var", axes = 1:2)
head(round(var_2f$contrib,2), 49)## Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_b4_corrected_0 0.25 1.85 0.18 2.48 0.08
## hlr_books_b4_corrected_1 0.83 1.19 0.20 0.09 0.81
## hlr_books_b4_corrected_2 0.37 0.25 0.02 1.07 0.62
## hlr_books_b4_corrected_3 0.02 2.23 0.21 0.75 0.14
## hlr_books_b4_corrected_4 0.11 0.45 0.01 1.31 0.00
## hlr_books_b4_corrected_5 2.15 0.56 3.23 0.35 0.03
## hlr_books_b4_corrected_6 0.19 0.02 0.26 0.10 0.27
## hlr_books_b4_corrected_7 4.90 1.54 1.17 0.25 0.02
## hlr_dbooks_b4_corrected_0 0.52 1.66 0.07 0.30 0.23
## hlr_dbooks_b4_corrected_1 0.01 1.28 0.05 1.88 0.13
## hlr_dbooks_b4_corrected_2 0.00 1.67 0.07 1.29 0.38
## hlr_dbooks_b4_corrected_3 0.00 0.55 0.11 0.25 0.03
## hlr_dbooks_b4_corrected_4 2.67 0.13 0.19 0.02 3.80
## hlr_dbooks_b4_corrected_5 1.64 0.01 6.26 0.14 0.07
## hlr_dbooks_b4_corrected_6 0.47 0.04 1.90 0.14 10.30
## hlr_dbooks_b4_corrected_7 1.76 0.21 0.49 0.16 0.45
## hlr_games_b4_corrected_0 0.46 2.97 0.23 2.74 0.07
## hlr_games_b4_corrected_1 0.43 0.01 0.00 2.24 0.05
## hlr_games_b4_corrected_2 0.06 1.97 0.08 1.34 0.01
## hlr_games_b4_corrected_3 0.14 1.83 0.00 1.20 0.89
## hlr_games_b4_corrected_4 3.07 0.02 3.54 0.09 0.03
## hlr_games_b4_corrected_5 1.38 0.24 0.27 0.24 6.48
## hlr_games_b4_corrected_6 1.40 0.85 2.67 0.06 3.82
## hlr_games_b4_corrected_7 1.49 1.71 1.38 0.27 2.40
## hlr_dgames_b4_corrected_0 0.33 1.38 0.08 1.53 0.19
## hlr_dgames_b4_corrected_1 0.20 0.02 0.00 2.71 0.04
## hlr_dgames_b4_corrected_2 0.29 1.83 0.05 0.91 0.14
## hlr_dgames_b4_corrected_3 0.40 0.83 0.94 0.41 2.31
## hlr_dgames_b4_corrected_4 0.36 0.02 0.45 0.27 0.03
## hlr_dgames_b4_corrected_5 2.32 0.01 7.35 0.00 1.05
## hlr_dgames_b4_corrected_6 1.10 0.45 3.09 0.01 11.45
## hlr_dgames_b4_corrected_7 1.80 1.09 0.65 0.71 3.77
## hlr_ad_books_b4_corrected_0 0.48 2.78 0.29 2.53 0.10
## hlr_ad_books_b4_corrected_1 0.74 0.52 0.07 1.99 0.64
## hlr_ad_books_b4_corrected_2 0.51 0.03 0.01 0.61 0.47
## hlr_ad_books_b4_corrected_3 0.01 0.90 0.01 0.19 0.11
## hlr_ad_books_b4_corrected_4 0.00 1.57 0.27 2.43 0.02
## hlr_ad_books_b4_corrected_5 0.24 1.36 0.04 0.71 0.00
## hlr_ad_books_b4_corrected_6 0.49 0.00 0.10 0.86 0.65
## hlr_ad_books_b4_corrected_7 5.95 0.80 0.00 0.61 0.04
## hlr_ad_dbooks_b4_corrected_0 0.91 2.48 0.22 0.81 0.09
## hlr_ad_dbooks_b4_corrected_1 0.02 0.71 0.16 4.26 0.76
## hlr_ad_dbooks_b4_corrected_2 0.10 0.50 0.49 0.11 0.22
## hlr_ad_dbooks_b4_corrected_3 0.02 2.20 0.20 1.53 0.06
## hlr_ad_dbooks_b4_corrected_4 0.05 0.26 0.02 0.56 0.00
## hlr_ad_dbooks_b4_corrected_5 0.48 0.09 0.16 0.27 0.42
## hlr_ad_dbooks_b4_corrected_6 1.09 0.29 0.11 0.11 0.00
## hlr_ad_dbooks_b4_corrected_7 4.85 0.00 4.44 0.01 0.04
## hlr_ad_news_b4_corrected_0 0.35 0.41 0.00 0.34 0.0515 principais categorias de variáveis que contribuem para as dimensões:
# Contributions of rows to dimension 1
fviz_contrib(res.mca_2f, choice = "var", axes = 1, top = 15)
# Contributions of rows to dimension 2
fviz_contrib(res.mca_2f, choice = "var", axes = 2, top = 15)
fviz_contrib(res.mca_2f, choice = "var", axes = 1:2, top = 15)
fviz_mca_var(res.mca_2f, alpha.var="contrib",
repel = TRUE,
ggtheme = theme_minimal())## Warning: ggrepel: 97 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
##Gráfico de indivíduos Resultados
lista contendo as coordenadas, o cos2 e as contribuições dos indivíduos:
ind_2f <- get_mca_ind(res.mca_2f)
ind_2f## Multiple Correspondence Analysis Results for individuals
## ===================================================
## Name Description
## 1 "$coord" "Coordinates for the individuals"
## 2 "$cos2" "Cos2 for the individuals"
## 3 "$contrib" "contributions of the individuals"colorir os indivíduos por seus valores de cos2:
fviz_mca_ind(res.mca_2f, col.ind = "cos2",
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE, # Avoid text overlapping (slow if many points)
ggtheme = theme_minimal())## Warning: ggrepel: 565 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
# Cos2 of individuals
fviz_cos2(res.mca_2f, choice = "ind", axes = 1:2, top = 20)
# Contribution of individuals to the dimensions
fviz_contrib(res.mca_2f, choice = "ind", axes = 1:2, top = 20)
PCA COMO NUMERICO
PRE-PANDEMIA
Com o pacote “psych” Como o p-valor e praticamente 0, a matrix de correlacao nao e diagonal, ou seja, as variaveis seao correlacionadas.
require(psych)
cortest.bartlett(db_bloco_2_pre)## $chisq
## [1] 1300.314
##
## $p.value
## [1] 2.07114e-262
##
## $df
## [1] 21The test measures sampling adequacy for each variable in the model and for the complete model. The statistic is a measure of the proportion of variance among variables that might be common variance. The lower the proportion, the more suited your data is to Factor Analysis.
KMO(db_bloco_2_pre)## Kaiser-Meyer-Olkin factor adequacy
## Call: KMO(r = db_bloco_2_pre)
## Overall MSA = 0.74
## MSA for each item =
## hlr_books_b4_corrected hlr_dbooks_b4_corrected
## 0.72 0.78
## hlr_games_b4_corrected hlr_dgames_b4_corrected
## 0.74 0.70
## hlr_ad_books_b4_corrected hlr_ad_dbooks_b4_corrected
## 0.71 0.78
## hlr_ad_news_b4_corrected
## 0.78res.pca_2_pre <- PCA(db_bloco_2_pre)
res.pca_2_pre$eig## eigenvalue percentage of variance cumulative percentage of variance
## comp 1 3.0637980 43.768542 43.76854
## comp 2 1.1025096 15.750137 59.51868
## comp 3 1.0231730 14.616758 74.13544
## comp 4 0.6716772 9.595388 83.73082
## comp 5 0.4936866 7.052666 90.78349
## comp 6 0.3378803 4.826861 95.61035
## comp 7 0.3072754 4.389648 100.00000PCA_2_pre <- prcomp(db_bloco_2_pre, scale = TRUE)
print(PCA_2_pre)## Standard deviations (1, .., p=7):
## [1] 1.7503708 1.0500046 1.0115202 0.8195591 0.7026283 0.5812747 0.5543243
##
## Rotation (n x k) = (7 x 7):
## PC1 PC2 PC3 PC4
## hlr_books_b4_corrected 0.4081098 -0.495317508 0.15711658 -0.004201734
## hlr_dbooks_b4_corrected 0.3434967 0.502962016 0.11198040 0.525031247
## hlr_games_b4_corrected 0.4238311 -0.008938619 0.41191753 -0.415496177
## hlr_dgames_b4_corrected 0.3947613 0.450321113 0.27466060 -0.266607744
## hlr_ad_books_b4_corrected 0.4054178 -0.518033687 -0.08985888 0.175057541
## hlr_ad_dbooks_b4_corrected 0.3904483 0.062689356 -0.42673665 0.418674934
## hlr_ad_news_b4_corrected 0.2513435 0.162886206 -0.72627921 -0.524093436
## PC5 PC6 PC7
## hlr_books_b4_corrected 0.3247202 -0.19626025 0.64764368
## hlr_dbooks_b4_corrected 0.5507976 -0.10401590 -0.16323136
## hlr_games_b4_corrected -0.1701321 -0.50235911 -0.44346877
## hlr_dgames_b4_corrected -0.2548255 0.56818790 0.32723503
## hlr_ad_books_b4_corrected 0.0324191 0.54530863 -0.47973452
## hlr_ad_dbooks_b4_corrected -0.6247878 -0.27751253 0.13731084
## hlr_ad_news_b4_corrected 0.3254028 -0.03295046 -0.03415257summary(PCA_2_pre)## Importance of components:
## PC1 PC2 PC3 PC4 PC5 PC6 PC7
## Standard deviation 1.7504 1.0500 1.0115 0.81956 0.70263 0.58127 0.5543
## Proportion of Variance 0.4377 0.1575 0.1462 0.09595 0.07053 0.04827 0.0439
## Cumulative Proportion 0.4377 0.5952 0.7413 0.83731 0.90783 0.95610 1.0000screeplot(PCA_2_pre, type = c("lines"), main = deparse(substitute(PCA)))
biplot(princomp(db_bloco_2_pre, cor = T))
fviz_pca_ind(res.pca_2_pre,
col.ind = "cos2", # Color by the quality of representation
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE # Avoid text overlapping
)## Warning: ggrepel: 551 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
fviz_pca_var(res.pca_2_pre,
col.var = "contrib", # Color by contributions to the PC
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE # Avoid text overlapping
)
fviz_pca_biplot(res.pca_2_pre, repel = TRUE,
col.var = "#2E9FDF", # Variables color
col.ind = "#696969" # Individuals color
)## Warning: ggrepel: 542 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps